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Benchmark run on an IBM PS/2 Model 60 using Turbo C version 
1,0 and the Turbo Linker version 1.0; Microsoft C version 4.0 and 
the MS overlay linker version 3.51. 

























Technical Specifications 


(Y Compiler: One-pass optimizing com- 
piler generating linkable object 
modules. Included is Borland’s high- 
performance Turbo Linker.” The object 
module is compatible with the PC- 
DOS linker. Supports tiny, small, com- 
pact, medium, large, and huge 
memory model libraries. Can mix 
models with near and far pointers. 
Includes floating point emulator 
(utilizes 8087/80287 if installed). 

[Y Interactive Editor: The system 
includes a powerful, interactive full- 
screen text editor. If the compiler 
detects an error, the editor auto- 
matically positions the cursor approp- 
riately in the source code. 

[Y¥ Development Environment: A power- 
ful “Make” is included so that manag- 
ing Turbo C program development is 
highly efficient. Also includes pull- 
down menus and windows. 

(Y Links with relocatable object modules 
created using Borland’s Turbo Prolog 
into a single program. 

[Y Inline assembly code. 

wy Loop optimizations. 

[Y Register variables. 

[Y ANSI C compatible. 

(Y Start-up routine source code included. 

[Y Both command line and integrated 
environment versions included. 


(Y License to the source code for Run- 
time Library available. 











Join more than 100,000 Turbo C 
enthusiasts. Get your copy of 
Turbo C today! 


Minimum system requirements: A\| products run on IBM PC, 
XT, AT, PS/2, portable and true compatibles. PC-DOS (MS-DOS) 
9.0 or later. 384K RAM minimum. Basic Telecom and Editor Tool- 
boxes require 640K. 


Borland International 
4585 Scotts Valley Drive, Scotts Valley, CA 95066 
Telephone: (408) 438-8400 Telex: 172373 
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Why more than 600,000 
programmers worldwide are using 
Turbo Pascal today 


he irresistible force behind 

Turbo Pascal’s worldwide 

success is Borland’s advanced 
technology. We created a com- 
piler so fast, that Turbo Pascal?® is 
now the worldwide standard. And 
there are more tools for Turbo 
Pascal than for any other develop- 
ment environment in the world. 


You'll get everything you 
need from Turbo Pascal and 
its 5 Toolboxes 


Turbo Pascal and Family are 
all you’ll ever need to perfect pro- 
gramming in Pascal. 

If you’ve never programmed 
in Pascal, you'll probably want to 
start with Turbo Pascal Tutor® 2.0, 
and as your expertise quickly 
grows, add Toolboxes like our 


e Database Toolbox® 
¢ Editor Toolbox® 
Graphix Toolbox® 
°¢ GameWorks® 
and our newest, 
¢ Numerical Methods Toolbox” 
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And because Turbo Pascal is the 
established worldwide standard, 
3rd party, independent non- 
Borland developers also offer an 
incredible array of programs for 
Turbo Pascal. Only $99.95! 





66 Borland International's 
Turbo Pascal took the pro- 
gramming world by storm. A 
great compiler combined 
with a good editor at an 
astounding price, the pack- 
age quickly came to be 
called, simply, Turbo—and 
has sold more than 500,000 
copies. 

Stephen Randy Davis, PC Magazine 


Language deal of the cen- 
tury. PC Magazine 
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For Scientists and Engineers: 
Turbo Pascal Numerical 
Methods Toolbox 


The Numerical Methods Tool- 
box is a complete collection of 
Turbo Pascal routines and pro- 
grams. Add it to your deve - 
ment system and you have the 
most comprehensive and power- 
ful numerical analysis capabil- 
ities—at your fingertips! 


The Numerical Methods Tool- 
box is a state-of-the-art mathemat- 
ical toolbox with these ten pow- 
erful features: 


[¥ Zeros of a function 
Interpolation 
Differentiation 
Integration 
Matrix Inversion 
Matrix Eigenvalues 
Differential Equations 
Least Squares 
Fourier Transforms 
Graphics 

Each module comes with pro- 
cedures that can be easily adapted 
to your own program. The Tool- 
box also comes complete with 
source code. So you have total 
control of your application. 


Only $99.95! 
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Turbo C. 
Turbo Basic. 
Turbo Pascal and 
Turbo Prolog: 
technical 
excellence 





66 Borland International’s Turbo Pascal, Turbo Basic 
and Turbo Prolog automatically identify themselves, by 
virtue of their ‘Turbo’ forenames, as superior language 
products with a common programming environment. 
The appellation also means to many PC users a ‘must 
have’ language. To us Turbo C looks like a coup for 


Borland. Garry Ray, PC Week 99 


BI-1131 A 


Turbo Prolog: 
The Natural Language of 
Artificial Intelligence 


hether you're a first-time 
\ \ | programmer or an expe- 

rienced one, Turbo Prolog’s 

natural implementation of Artifi- 
cial Intelligence soon shows you 
how to build expert systems, nat- 
ural language interfaces, custom- 
ized knowledge bases and smart 

information 
management 
systems. 
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Turbo Prolog and Turbo C 
work hand-in-hand 


Turbo Prolog’ interfaces per- 
fectly with Turbo C® because 
they’re both designed to work 
with each other. 

The Turbo Prolog/Turbo C 
combination means that you can 
now build powerful commercial 
applications using two of the 
most powerful languages 
available. 


Turbo Prolog’s development 
system includes: 

[¥ Acomplete Prolog compiler that 
is a variation of the Clocksin and 
Mellish Edinburgh standard 
Prolog. 


[¥ A full-screen interactive editor. 

[YW Support for both graphic and text 
windows. 

[¥ All the tools that let you build 
your Own expert systems and 
AI applications with un- 
precedented ease. 


All Borland products are trademarks or registered trademarks of Borland Interna- 
tional, Inc., or Borland/Analytica, Inc. Other brand and product names are trade- 
marks or registered trademarks of their respective holders. 

Copyright 1987 Borland International Bl-1131 A 











&& An affordable, fast, and 
easy-to-use language that 
will delight the newcomer 
... You experienced Prolog 
hackers will likewise be 
delighted, if not astonished, 
by the features and per- 
formance of the Turbo 
Prolog development 
environment. 

Turbo Prolog offers gener- 
ally the fastest and most 
approachable implementa- 
tion of that language. 


Darryl Rubin, AlExpert 99 





How Turbo Prolog’s new Tool- 
box adds 80 powerful tools 
and 8000 lines of source code 


In keeping with Borland tradi- 
tion, we’ve quickly added the 
new Turbo Prolog Toolbox” to 
Turbo Prolog. 

With 80 tools and 8000 lines 
of source code that can easily be 
incorporated into your own pro- 


grams—and 40 sample programs 
that show you how to put these 
AI tools to work—the Turbo 
Prolog Toolbox is a highly intelli- 
gent, high-performance addition. 
Only $99.95! 


Turbo Prolog Toolbox 
features include: 

Business graphics generation: 
boxes, circles, ellipses, bar charts, 
pie charts, scaled graphics 
Complete communications pack- 
age: supports XMODEM protocol 
File transfers from Reflex,° dBASE 
III,° 1-2-3,°Symphony* 

(W A unique parser generator: con- 
struct your own compiler or query 
language 

[MW Sophisticated user-interface design 
tools 
Contains 40 example programs 
Easy-to-use screen editor: design 
your screen layout and I/O 
Calculated fields definition 
Over 8,000 lines of source code 
you Can incorporate into your own 
programs 





Tur 
The most pow 
comp! 


ur new Turbo C generates 
QO fast, tight, production- 
quality code at compilation 
speeds of more than 13,000 lines 
a minute! 
It’s the full-featured optimizing 
compiler everyone has been wait- 
ing for. 


Switching to Turbo C, or 
starting with Turbo C, you 
win both ways 

If you're already programming 
in C, switching to Turbo C will 
make you feel like you're riding a 
rocket instead of pedaling a bike. 

If you’re never programmed in 
C, starting with Turbo C gives you 
an instant edge. It’s easy to learn, 
easy to use, and the most efficient 
C compiler at any price. 
Only $99.95! 





&& Turbo C does look like 
What We’ve All Been Waiting 
For: a full-featured compiler 
that produces excellent 
code in an unbelievable 
hurry ... moves into a class 
all its own among full- 
featured C compilers... 
Turbo C is indeed for the 
serious developer... One 
heck of a buy—at any 


pr ice. Michael Abrash, 
Programmer’s Journal a5 





Turbo Basic introduces 
its powerful new Telecom, Editor 


NEW! 


and Database Toolboxes 


urbo Basic® is the break- 

through you’ve been waiting 

for. The same power we 
brought to Pascal with Turbo 
Pascal has now been applied 
to BASIC with Turbo Basic. 

Compatible with BASICA, Turbo 

Basic is the high-performance, 
high-speed BASIC you’d expect 
from Borland. 


Basically, Turbo Basic is 
all you need 


It’s a complete development 
environment which includes an 
incredibly fast.compiler, an inter- 
active editor and a trace debug- 
ging system. It outperforms all its 
rivals, and because it’s compatible 
with BASICA, you probably 
already know how to use it. 

Includes a free MicroCalc” 
spreadsheet complete with source 
code. Only $99.95! 
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A technical look at Turbo Basic 

[W Full recursion supported 

[W Standard IEEE floating-point format 

[MW Floating-point support, with full 
8087 (math co-processor) integra- 
tion. Software emulation if no 
8087 present 

[MW Program size limited only by avail- 
able memory (no 64K limitation) 

[W VGA, CGA, and EGA support 

[¥ Access to local, static, and global 
variables 

(¥ Full integration of the compiler, 
editor, and executable program, 
with separate windows for editing, 
messages, tracing, and execution 

[¥ Compile, run-time, and I/O errors 
place you in the source code 
where error occurred 

[YW New long integer (32-bit) data 
type 


[W Full 80-bit precision 
[W Pull-down menus 
[¥ Full window management 








&& Borland has created 
the most powerful version 
of BASIC ever. 
Ethan Winer, PC Magazine 59 
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Telecom Toolbox is a complete 

communications package which 

takes advantage of the built-in 

communications capabilities of 

BASIC—use as is or modify. 

* Pull-down menus and windows 

* XMODEM support : 

¢ VT 100 terminal emulation 

¢ Captures text to disk or printer 

* PhoneBook file 

* 300, 1200, 2400 baud support 

* Supports script files 

* Fast screen I/O 

* Supports most of XTalk’s 
command set 

* Manual dial and redial options 
Use Telecom Toolbox to embed 

communications capabilities into 

your own programs and/or build 

your Own communications pack- 

age. Source code included for 

all Toolbox code and sample 


programs. Only $99.95! 
























For the dealer nearest you or to order by phone call 


(800) 255-8008 
in CA (800) 742-1133 in Canada (800) 237-1136 





<a 
ee 
(ES 
TT 








iF Ee ATA OR AL 









SUMMER BREAK SPECIAL ! 
Buy Turbo Basic and get a FREE 
product. See your dealer for details! 
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Database Toolbox means that 

you don’t have to reinvent the 

wheel each time you write new 

Turbo Basic database programs. 

[W “Trainer” shows you how B+ 
trees work. (Simply key in 
sample records and you'll see 
your index being built.) 

[W Turbo Access instantly locates, 
inserts or deletes records in a 
database—using B+ trees. 

[MW Turbo Sort sorts data on single 

items or on multiple keys and 

features virtual memory 


management for sorting large 
data files. 


Source code included. 
Only $99.95! 
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Editor Toolbox is all you need 
to build your own text editor or 
word processor. Includes source 
code for two sample editors. 

First Editor is a complete editor 
ready to include in your programs, 
complete with windows, block 
commands and memory-mapped 
screen routines. 

MicroStar’ is a full-blown text 
editor with a complete pull-down 
menu user interface, and gives you 
° Wordwrap 
* Undo last change 
¢ Auto-Indent 
* Find and Find/Replace with options 
° Set left/right margins 
* Block mark, move and copy 
¢ Tab, insert, overstrike modes, line 

center etc. 

Includes source code. 


Only $99.95! eat 
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Enhance your Microsoft C programming environment with 
C TOOLS PLUS/5.0™— a new, quintessential library of C 
ns. C TOOLS PLUS/5.0 from Blaise Computing Inc. puts a prime 
ickly building professional applications using the full power of 
Version 5.0 and QuickC. Now you can concentrate on program 
having full control over DOS, menus, interrupt service routines, 
ident programs, printer and keyboard control, and more! 


C TOOLS PLUS/5.0 prebuilt libraries are ready to use 
with either QuickC or the Microsoft C Version 5.0 com- 
F mand line environment. Complete documented source 
F code is included so that you can study and adapt it to your 
specific needs. Blaise Computing’s attention to detail, like 
the use of full function prototyping, cleanly organized 
header files, and a comprehensive, fully-indexed manual, 
makes C TOOLS PLUS/5.0 the choice for experienced 
developers as well as newcomers to C. 


- Continuous refinement of Blaise Computing’s library 
products has produced a collection of tools that are 
- unsurpassed for reliability, functionality and ease of use. 
Built upon the widely acclaimed C TOOLS PLUS, 
-C TOOLS PLUS/5.0 includes such highly-developed 


































atures as: 
INTERVENTION CODE 
— Schedule C functions at specified times, inter- 
$s, cursor memory. vals or with a “hot key’ NEW! 
input, formatted output. — Take full advantage of DOS, even from memory 
“pril ndow-oriented output. NEW! resident programs. NEW! 
INTERRUPT SERVICE ROUTINES FAST DIRECT VIDEO ACCESS 
— Capture DOS critical errors and keystrokes. — All monitors, even EGA 43-line mode. 
— Install hardware interrupt handlers. PRINTER CONTROL 
RESIDENT SOFTWARE SUPPORT — Access BIOS print functions. NEW! 
— Install, detect and remove memory resident — Control the DOS PRINT utility. NEW! 
programs. UTILITIES AND MACROS 
MENUS — Take advantage of DOS file structure. 
~ — Horizontal and pulldown. — Manipulate data types, far & near pointers. NEW! 
_ won. NEW! — Access any memory areas with fast “peek” and 
ie ff f/f fy —Lotus-style support. NEW! “poke” macros. NEW! 


_C TOOLS PLUS/S5.0 supports the Microsoft C Version 5.0 and QuickC 
mpilers, requires DOS 2.00 or later and is just $129.00. 


| IMPROVED! 
C ASYNCH MANAGER is a library of functions designed to help you 
incorporate asynchronous communication capabilities into your 
application programs. Version 2.0 has been rewritten especially for 
Microsoft C Version 5.0 and Borland’s Turbo C. Simultaneous 
buffered input and output to both COM ports at speeds up to 















9600 baud, XON/XOFF protocol, modem con- eet ie ee 
trol and XMODEM file transfer are among nee he prime gees coPeroducts: 
the many features supported and is priced at T7...Send' © — 10 nation oF oe £ 4 $4.00 for 
just $175.00. : Enclosed “8 me more in Domestic wr andar ait. ———— 
; e ax. 
Blaise computing Inc. hasa fullline of support | 0 Ee gents add Sa for Federal S haeae ( es 
smal for both Pascal and C. Call today for your : oS chipping: $10: fig 
ree information packet. 28 
, 1 Name: State: Exp- Dt 
fiemuirencir a Re eee : Address: 
BLAISE COMPUTING INC. (kx WCE 
2560 Ninth Street, Suite 316 Berkeley, CA 94710 (415) 540-5441 - = 
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A Fast Forth for the 68000 32 
by Lori Chavez 
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About the Cover 
“Apples in space” is just our 
way of saying that physical 
distance, be it a hundred feet 
or a few thousand miles, is no 
longer an obstacle to linking 
AppleTalk nodes. 


This Issue 

Our annual Forth issue intro- 
duces a new bimonthly Forth 
column as well as two ways to 
increase Forth speed: the first 
increases execution speed on 
68000 machines; the second 
trims development time for PC 
Forths. Finally, our cover story 
looks at how two gentlemen 
from Dartmouth have expanded 
AppleTalk into a “nonlocal” 
area network. 


Next Issue 
November's DDJ features a 
graphics theme, and we're not 
talking about just another 
pretty face here, folks. Pro- 
gramming PC graphics is the 
focus, and we'll approach it 
from several different language 
directions. 
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Or why. 





Des the single most important emerging 
is OOPS, object-oriented programming. It's 
change the way you use your personal computer. 
You'll find it doing things you never expected. 


And by people you never suspected. 


in an emergency room in 
Vancouver, it’s saving lives 
through animation. 

What if a medical textbook could come to life? What 
if it could show the effects emergency treatment might 
have on patients? And do it all through moving pic- 
tures? These thoughts led Folkstone Design, Edge 
Training & Consulting, and Inform Software in 
Vancouver, B.C., to create the first animated, inter- 
active textbook for emergency room technicians and 
in-training paramedics. They found Smalltalk/V 
could easily facilitate a combination of text, color 
graphics and animation to illustrate vanious 
physical processes and the results of 

medical intervention. 







ple who 
find Smalltalk. 





software technology 
destined to dramatically 
































At the UCLA Medical 
_Center, it sees 
patients before the 
doctor does. 
Mike McCoy, M.D., at the UCLA Medical 
Center, found that he could easily interface 
Smalltalk/V with dBASEIII and Post- 
Script. His application, now in use at 
the Clinic, turns a functional status 
questionnaire on each new patient into 
a laser printed, advisary analysis for 
the doctor to review prior to seeing the 
patient.A program like this would 
normally take a specialist months to 
produce. It took Dr. McCoy less than 
100 hours with 
Smalltalk/ V. 


ital 





it’s working on 


Florida’s freeways. 
Running on IBM’s new PS/2, a Smalltalk/V application 
developed by Greiner Engineering’s Mike Rice, lets high- 
way engineers create highly sophisticated graphic analyses 
of any proposed reconstruction. So now, instead of having 
to deal with a gridlock of Federal and State regulations, 
engineering specifications and endless calculations, an 
engineer can quickly explore alternative design strategies 
using a mouse, windows and VGA color graphics. 





Smalltalk/V requires DOS and 512K RAM on IBM PC/AT/PS or compatibles and a CGA, 
EGA, Toshiba T3100, Hercules, or AT&T 6300 es controller. A Microsoft or compatible 
mouse is recommended. Not copy protected. dBASEII, PostScript and PS/2 are trademarks of 
Ashton-Tate, Adobe Systems and International Business Machines Corporation respectively. 












It’s tracking 
white-tail deer on 





What thousands of people 
have found is OOPS. 
Object-Oriented Programming (OOPS) 
is programming by defining objects, 
their inter-relationships and their 
behavior. Objects can represent both 
real-world entities like people, places, 
or things. They can also represent 

| useful abstractions such as stacks, 
sets and rectangles. 

OOPS models the 
way you think and the 
way things really are. It 
lets you solve problems 
by breaking them down 
into easily handled 
sub-problems and their 
inter-relationships. The 
solutions you come up 
with can be re-used to 
solve new problems. 
Ultimately, OOPS makes 
programming a simple, 
logical process of building on the 
work of others. 


Why thousands more 
are finding their way to 
Smalitalk/V. 
First of all, Smalltalk/V makes OOPS 
easy. 

Tes also fast. In fact, it’s the fastest 
OOPS programming available on a PC. 
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the Barrier Islands 
of Georgia. 
Dr. Lee Graham, a National Park Service 

ecologist chose Smalltalk/V to write an appili- 
cation to help manage the white-tatl deer popu- 
lation on the Barner Islands of Georgia. Dr. Graham 

found that Smalltalk/V, with its visual interface and 

class structure, ts a perfect tool to graphically simulate 

the complex, ecological interactions of natural systems. 


*Now that you’ve found us, write us. Tell us some of the 





You can find it in space. 
On a project commissioned by NASA, Dr Christine Mitchell 
at the Georgia Institute of Technology, chose to use 
Smalltalk/V as an integral part of a new man-machine 
interface. The application, written in Smalltalk, continually 
monitors the commands of the Satellite Network Operator, 
the state-of-the-network and the overall mission plans. 

To NASA, Smalltalk/V means 
real-time. Real OOPS. Real results. 
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It’s making headlines in Arizona. 
When Digital Composition Systems sat down to build an 
electronic typesetting system, they had three major requirements. 

It had to have the most advanced user interface. It had to be fast. 
And, tt had to be able to turn untrained personnel into high quality 
typographers. Of all the languages in the world, they chose Small. 
talk/ V. The result 1s the Signature Series, recognized and reviewed 
by The Seybold Report. Its now marketed by Digital Composition 
Systems and one of the largest digital typesetting firms in the 
world, Varityper AM International. 





And it’s easy to learn. It comes 
complete with a tutorial that’s the 
best introduction to OOPS available. 

Smalltalk/V also has a few other 
features worth noting. Like a user- 
extendable, open ended environment. 
Source code with browser windows 
for easy access and modification. 

A huge toolkit of classes and objects 
for building a variety of applications. a , 
A sophisticated source-level debugger. [ifeilesircllapteles 

Wi rer cented Trolog integrated, CIRCLE 127 ON READER SERVICE CARD 
bit-mapped graphics with bit and D9. = 

form editors, just to name a few. eS 

Then, there’s its unbelievable 
price of only $99.95. (Optional appli- : 
cation packs at $49.95 include 4 4 
Communications, EGA/VGA Color he / 
and Goodies.) , , 

And it has a 60 day, money-back 
guarantee. 

With all this to offer, it probably 
wont come as a surprise to you 
that more people are solving more 
problems with Smalltalk/V than 
any other OOPS. 

See your nearest dealer 
today for your own Small- 
talk/V. Or, order it direct 
with MasterCard or Visa 
at (800) 922-8255. 


Or, write to Digitalk, Inc., 9841 Airport 
Blvd., Los Angeles, CA 90045. Then 
discover all the great things you can 
do with your PC and Smalltalk/V. 


Small 
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Smalltalk } 


Olver? Oriented Programming System (OOPS 






great things you’re doing with Smalltalk/V. You could be in our next ad. 
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Lebensraum and RAM 


ince the beginning of the micro 
98 volition DDJ readers have 
been plagued with memory short- 
ages. To be sure, our perception of 
what constitues “enough” memory 
has been subject to almost constant 
revision. In the heyday of the S-100 
bus, the introduction of 16K dy- 
namic RAM cards was an exciting 
development. Now just about every- 
one in the PC realm is complaining 
that G40K of RAM simply isn't 
enough room for all their software 
Déja vu. 

A few years ago, the folks at Lotus 
and Intel got together and came up 
with a way of expanding the amount 
of memory in a PC beyond the 640K 
barrier. Before long, Microsoft had 
gotten into the act, and we had a 
formal spec: the Lotus/Intel/Micro- 
soft Expanded Memory Specification 
(EMS). The EMS was admittedly a 
kludge, but bank-switched RAM was 
better than no RAM at all. 

Given the nature of the market, it 
was inevitable that some people 
wouldn't be all that thrilled with 
some of the limitations of the LIM 
version. Before long an AST/Quad- 
ram/Ashton-Tate coalition produced 
the Enhanced Expanded Memory 
Specification, a superset of the origi- 
nal plan. 

Mercifully, developers weren't 
asked to deal with any more ver- 
sions than these two. 

Of course, not everyone was 
happy with the limits of the EMS 
and the EEMS. There were still some 
rough edges in the standards, some 
confusion in the minds of program- 
mers as to which standard to write 
for, and that annoying upper limit 
of eight megabytes. And with the 
growing realization that IBM’s PS/2 
line isn’t going to instantly make all 
the older DOS machines obsolete, 
the importance of hardware and soft- 
ware that maximizes the perform- 
ance of DOS machines has begun to 
take on a new importance. 

And this is where we have good 


news to report. Recently the folks at 
Lotus, Intel, and Microsoft an- 
nounced a new version of the EMS. 
Rather than yet another departure 
in standards, Version 4.0 of the Ex- 
panded Memory Standard is a su- 
perset of both previous standards 
and the result of cooperation be- 
tween the vendors. 

Representatives from other com- 
panies were present at the press 
conference announcing the new ver- 
sion. People from AST Research 
were there, as you might expect, but 
other companies, such as Ashton- 
Tate, Borland, and Symantec, were 
also represented. It was particularly 
gratifying to see Terry Myers of 
Quarterdeck Systems announcing 
products that would take advantage 
of the new standard at the same time 
the standard was announced. (At 
long last, the EMS will support multi- 
ple processes.) 

Although it may seem at times 
that we here at DDJ can only flame 
when we hear names such as Lotus, 
Intel, and Microsoft, that’s not really 
the case. We'd like to take this op- 
portunity to commend the folks at 
AST, Intel, Lotus, Microsoft, and the 
other companies involved for coop- 
erating in the new EMS standard. In 
particular, Microsoft deserves praise 
for making good on its pledge not 
to abandon the millions of PC users 
who aren't going to abandon DOS 
for OS/2. The older machines will 
continue to need new, innovative 
software, and this cooperative EMS 
effort will ease the burdens of both 
users and programmers. Indeed, the 
only question I had after the press 
conference was “Why only 32 mega- 
bytes?” 


PerEr 


Tyler Sperry 
editor 
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Our thanks to NASA for nein! this computer wbaiesd ultraviolet photo taken hy Skylab lV of a solar prominence reaching out 350,000 miles above the sun’s surface 


Genius Begins With A Great Idea... 


What follows is the time consuming task of giving 
form and function to the idea. 

That's why we concentrate on building into our soft- 
ware development systems functions and features 
that help you develop your software ideas in less time 
and with less effort. 

We've started 1987 by releasing new versions of 
our MS-DOS, Macintosh, Amiga, ROM, and Apple // 
C development systems. Each system is packed with 
new features, impressive performance, and alittle bit 
more genius. 





Superior performance, a powerful new array of fea- 
tures and utilities, and pricing that is unmatched 
make the new Aztec C86 the first choice of serious 
software developers. 


Aztec C86-p Professional System .. . .$199 
* optimized C with near, far, huge, small, and large 
memory + Inline assembler + Inline 8087/80287 + 
ANSI support + Fast Float (32 bit) + optimization 
options * Manx Aztec 8086/80x86 macro assembler 
e Aztec overlay linker (large/small model) ¢ source 
level debugger ¢ object librarian ¢ 3.x file sharing & 
locking * comprehensive libraries of UNIX, DOS, 
Screen, Graphics, and special run time routines. 


Aztec C86-d Developer System ...... $299 
* includes all of Aztec C86-p © Unix utilities make, 
diff, grep © vi editor © 6 + memory models ¢ Profiler. 


Aztec C86-c Commercial System. .... $499 
e includes all of Aztec C86-d ¢ Source for library rou- 
tines © ROM Support ¢ CP/M-86 support ® One year 
of updates. 


Aztec C86 Third Party Software 

A large array of support software is available for Az- 
tec C86. Call or write for information. The following is 
a list of the most requested products: « Essential 
Graphics « C Utility Library Curses « Greenleaf Com- 
munication, General, and Data Window « Halo « Pan- 
el+ ¢ PC-lint « PforCe « Pre-C * Windows for C « Win- 
dows for Data C terp « db_Vista « db-Query « Phact « 
Plink-86 Plus « c-tree « r-tree « Pmate 


C compiler, 8080/Z80 assembler, linker, librarian, 
UNIX libraries, and specialized utilities. 


Aztec C Il-c (CP/M-80 & ROM)........ $349 
Aztec Cll-d (CP/M-80)............-- $199 
Aztec C80 (TRS-80 3&4) ............ $199 











Manx Software Systems 
1 Industrial Way, Eatontown, NJ 07724 


Amiga user groups across the USA voted Aztec 
C68k/Am release 3.3 the best Software Development 
System for the Amiga. Release 3.4 is more impres- 
sive. 


Aztec C68k/Am-p Professional 
A price/feature/performance miracle. System in- 
Cludes: optimized C * 68000/680x0 assembler 
68881 support © overlay linker ¢ UNIX and Amiga 
libraries © examples. 


Aztec C68k/Am-d Developer ........ $299 
The best of Manx, Amiga, and UNIX. System in- 
Cludes: all of Aztec C68k/Am-p © the Unix utilities 
make, diff, grep and vi. 


Aztec C68k/Am-c Commercial....... $499 
Aztec C68k/Am-d plus source for the libraries and 
one year of updates. 





For code quality, reliability, and solid professional 
features, Aztec C for the Macintosh is unbeatable. 
This new release includes features and functions not 
found in any other Macintosh C development system. 


Aztec C68k/Mac-p Professional... . . .$199 
* optimized C * 68000/680x0 assembler * 68881 
support ¢ overlay linker © UNIX and Macintosh li- 
braries * examples. 


Aztec C68k/Mac-d Developer........ $299 
The best of Manx, Macintosh, and UNIX. System in- 
Cludes: all of Aztec C68k/Am-p ¢ the Unix utilities 
make, diff, grep ¢ vi editor. 


Aztec C68k/Mac-c Commercial ...... $499 
Aztec C68k/Am-d plus source for the libraries and 
one year of updates. 


Aztec C65 is the only commercial quality C com- 
piler for the Apple Il. Aztec C65 includes C compiler, 
6502/65C02 assembler, linker, library utility, UNIX li- 
braries, special purpose libraries, shell development 
environment, and more. An impressive system. 


Aztec C65-c Commercial ........... $299 
® runs under ProDOS ® code for ProDOS or DOS 3.3 


Aztec C65-d Developer............. $199 
e runs under DOS 3.3 ¢ code for DOS 3.3 








— C-tree TM Faircom, inc., 


An IBM or Macintosh is not only a less expensive 
way to develop ROM code, it’s better. Targets include 
the 6502/65C02, 8080/Z80, 8086/80x86, and 680x0. 

Aztec C has an excellent reputation for producing 
compact high performance code. Our systems for 
under $1,000 outperform systems priced at over 
$10,000. 


Initial Host Plus Target............. $750 
Additional Targets ................ $500 
ROM Support Package............. $500 


Call for information on Vax, PDP-11, Sun and other 
host environments. 


These C development systems are unbeatable for 
the price. They are earlier versions of Aztec C that 
Originally sold for as much as $500. Each system 
includes C compiler, assembler, linker, librarian, 
UNIX routines, and more. Special discounts are 
available for use as course material. 


Cy POM iio s wd FRc Sere ora $75 


Most Aztec C systems are available as cross devel- 
opment systems. Hosts include: PC/MS-DOS, Mac- 
intosh, CP/M, Vax, PDP-11, Sun, and others. Call for 
information and pricing. 


To become a user Call 800-221-0440. From NJ or 
international locations call 201-542-2121. Telex: 
4995812 or FAX: 201-542-8386. C.O.D., VISA, 
MasterCard, American Express, wire (domestic 
and international), and terms are available. One 
and two day delivery available for all domestic and 
most international destinations. 

Aztec C is available directly from Manx and from 
technically oriented computer and software stores. 
Aztec Systems bought directly from Manx have a 30 
day satisfaction guarantee. 

Most systems are upgradable by paying the differ- 
ence in price plus $10. Site licenses, OEM, educa- 
tional, and multiple copy discounts are available. 


To order or for more information call today. 


In NJ or international call (201) 542-2121 e TELEX: 4995812 


MS isa soamieees TM of Microsoft, Inc.. CP/M TM DRI, HALO fd Media Cybernetics, PANEL TM Roundhill Computer Systems, Ltd.. 
PHACT TM PHACT Assoc., tyes Plink-86, Plink-86 + , P-Force 
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n my first column I 

confessed to not 
being much of a lan- 
guage zealot. Though 
I do enjoy playing 
around with Forth, I 
don’t have the reli- 
gious’ fervor _ that 
seems to afflict so 
many Forth enthusi- 
asts. I will, however, 
also confess to not 
being able to deny myself the pleas- 
ure of baiting C enthusiasts about 
how wonderful Forth is so that I can 
watch their faces turn all those 
pretty colors. (Forthians aren't the 
only people who can be fanatic 
about their programming language.) 
I will even, on occasion, dirty my 
hands with a program written in 
Turbo Pascal or QuickBASIC. 

From what I've learned in talking 
with DDJ readers, this isn’t all that 
unusual. Most of you seem to be 
rather fond of programming in C on 
MS-DOS machines, but that isn’t all 
that surprising given the current 
popularity of C and DDJ’s history of 
exploring C compilers from the 
inside out. In fact, one of the distin- 
guishing characteristics of a long- 
time DDJ reader is familiarity with a 
variety of languages. 

It is with this in mind that we put 
together every issue of DDJ. Thus, 
you'll find this issue—our “annual 
Forth issue’’-—not completely over- 
run with articles written about 
Forth. True, there a couple of rather 
good Forth articles, and we're intro- 
ducing a new Forth column, but 
there is plenty more here as well 
—and our coverage of Forth doesn't 
begin and end with this issue. 


Because I’m in a confessing mood, 
I'll unpack another: I am a man 
without a number. I am neither a 
sixer nor an eighter. I learned to 
program in machine language on 
the RCA 1802 (I learned enough to 
know better—please don’t send in 








any 1802 articles) and 
moved through CP/M 
to MS-DOS along with 
the rest of you. I've 
seen enough = ma- 
chines and nifty soft- 
ware to realize that 
short of having a base- 
ment with a Cray and 
about a dozen other 
computers hooked up 
_| to a magic terminal, 
there’s simply no way I'll ever be 
satisfied with a single machine. 

Which brings us, in a not entirely 
circuitous manner, to this month’s 
lead article. Rather than putting off 
Rich Brown and Steve Legitt’s piece 
on extending the AppleTalk network 
until January's “annual 68K issue,” 
we're printing it now for those of 
you who (like me) don't want to wait 
for a good article. As you might 
expect from my comment on num- 
bering, this is hardly the last Mac 
article you'll be seeing in DDJ. In the 
future, who knows? A column on 
Mac topics? We'll see. 


One last thing: No Running Light 
would be complete without solicit- 
ing reader feedback and articles. 
What are you interested in reading 
in 1988? We're looking for more arti- 
cles on debugging, object-oriented 
programming, and real-time program- 
ming for the first quarter. Call me at 
(415) 366-3600 or catch me on line 
and tell me what youd like to see 
in the magazine. 


“Tita Sper 


Tyler Sperry 
editor 

































































Ten Years Ago In DDJ 

“When faced with the choice of paying 
$100 or more for a piece of commercial 
software without source code, or a freebie 
with source code, most people will try 
the freebie first. If it doesn’t work out, 
they can always buy the commercial 
product. 

“Personally, I wouldn’t want a piece of 
sourceless software as a gift, let alone pay 
money for it. Sooner or later, I want to 
make modifications. Without the source 
code this can be a real hassle. It can be a 
hassle even with the source code and full 
documentation. ... 

“By refusing to sell source code, 
vendors are cutting down their sales 
potential. The practice can’t prevent 
anyone from making a tape copy for his 
buddy down the street, nor can it keep 
anyone from using a disassembler to see 
what makes a program tick. Yet some 
vendors are so secretive they won't even 
sell you a Basic manual unless you buy 
the whole package and sign a non- 
disclosure agreement. Who needs that 
kind of trip?” Jim Day, letter to the editor, 
DDJ, October 1977. 





Elegant Efficiency 
“Computer programming is a form of 
art, far from being a discipline of science 
or engineering. For any specified pro- 
gramming problem, there are an infinite 
number of solutions, entirely dependent 
upon the programmer as an artisan. We 
can, however, rate a solution by its 
correctness, its memory requirement, its 
execution speed, and other qualities. 

“For some applications, best is what- 
ever is shortest and fastest. The only way 
to achieve this goal is to use the 
computer with an instruction set opti- 
mized for the problem. Optimization of 
the computer hardware is clearly imprac- 
tical because of the excessive costs. 

“Thus, one would have to compromise 
by using a fixed, general purpose 
instruction set offered by a real computer 
or a language compiler. To solve a 
problem with a fixed instruction set, one 
has to write programs to circumvent the 
shortcomings of the instruction set. 

“The solution in FORTH is not achieved 
by writing programs but by creating a 
new instruction set in the FORTH virtual 
computer. The new instruction set in 
essence becomes ‘the’ solution to the 
programming problem.” C. H. Ting, 
“Formal Definition of FORTH,” DD%J, 
February 1982. 
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Optimizing ROMable C 


With Source Level Debugging on Your Target System! 


Optimum-C, the compiler known 
for its tight, highly-optimized code 
generation, produces completely 
ROMable code. Coupled with 
ROM support tools like ROMable 
standard function libraries, a 
remote debugger, pre-written 
startup routine, interactive ed- 
itor, and UNIX-style MAKE, 
Optimum-C will help you complete 
your project in record time. 


Optimum-C, the ROM 
developer’s choice 


Optimum-C has the features ROM 
developers require in a C compiler. 
These features include fast 
execution, multiple memory 
support, and 8087 support via 
inline code or emulation. 
Optimium-C also has understand- 
able error messages, one-step 
compiling, complete function 
prototyping, and inline 8086 I/O 


instructions. 


You’ve seen the ads: Datalight 
challenges Microsoft. Our C 
compiler expert Richard Relph saw 
the ads and sent for Datalight’s 
compiler. What he found when he 
began to test it must have given him 
mixed feelings. For the past two 
years Richard has been involved in 
developing the DD] sutte of 
benchmarks for C compilers. The 
Datalight compiler flattened those 
benchmarks, making them 
worthless. 

With the apparent glut of C 
complier suppliers vying for the 
MS-DOS market, 1t was only a 
matter of time before one of them 
decided to step above the crowd and 
provide a reliable optimizing C 
compiler. Datalight beat all others 
to the punch by delivering such a 
compiler February of this year. (Dr. 
Dobbs Journal, August 1987) 


ROM-it, The ROM 
Developer’s Kit 


ROM-it adds the functionality 
required by serious ROM develop- 


ers. ROM-zt includes pre-written 
start-up code for an embedded 
system to take the 8086 processor 
from a system RESET to executing 
C code. The library included has 
standard C functions that are usable 
in a ROM environment, without 
any hidden calls to MS-DOS or the 
BIOS. Lastly, the BLAZE Loca- 
tor/Intel hex file generator performs 
location of code and data while it 
checks for ROM overflows, illegal 
data access, and complete program 
location. 


Remote-DSD Source Level 
debugging on your target 
system! 


The Remote-DSD debugger allows 
you to debug your application on 
the target system. Remote-DSD 
runs on the PC and is connected to 
your target system via an RS232 
link. With Remote-DSD you 
download your application to the 
target hardware, modify initial 
values of variables before you start 
your application. The C source 
code appears on the PC showing 
you where execution will start. You 
can now execute or single step 
through your program, set break 
points, and access your target 
machine internals like I/O ports, 
registers, and memory. 


And lastly, Support! 


The product is only as good as the 
support. With DATALIGHT, you 
are covered here. You will get one 
hour of phone support for those 
needed answers. Also, you will get 
updates for one year, so you are 
always running with the latest 
versions. 


Pick up the phone and gain a 


powerful advantage. 
Call 
1-(800) 221-6630 


for complete details on how you can 
finish those ROM projects on time 
and without the bugs! 


CIRCLE 203 ON READER SERVICE CARD 


Magazine Reviewers Shocked by 
DATALIGHT’s Performance... 


“Reviewing this compiler was quite a 
surprise for us. For such a low price, we 
were expecting a “lightweight” compiler. 
What we got was a package that 1s as good 
as or better than most of the “‘heavy- 
weights.”’ Datalight C implements a 
complete C' language. It also compiles 
quickly, doesn’t take up much disk space, 
and looks impressive in the benchmarks.” 

DR. DOBBS, August 1986 


“This 1s a sharp compiler!... what ts 
umpressive 1s that Datalight not only stole 
the compile time show completely, but had 
the fastest Fibonacci executable time and 
had excellent object file sizes to boot!’’ 


COMPUTER LANGUAGE, February 1986 


Specifications 


Full UNIX V C compiler 
with ANSI extensions 
Global optimizations using 
Data Flow Analysis 
8087/80287 support inline or 
emulation 

¢ Complete library source 
code 

Multiple memory model 
support 

Interrupt handling in C 
Make utility 

EZ editor 

DLC one step compiling 
Start-up code for 8086 
ROMable library (without 
hidden MS-DOS calls) 

¢ BLAZE locator/Intel hex file 
generator 

Source level debugging on 
the target system 

View source code as it 
executes on target 

¢ Access local variables 

¢ View 8086 machine 


internals 


Datalight 


17505-68th Avenue NE, Suite 304 
Bothell, Washington 98011 USA 
(206) 367-1803 
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Texas Instruments has 


system developers need. 





ON prea 





“Personal Consultant™ Plus ee offers Personal Consultant Plus 3.0 Standard Features 


— Frames, rules, meta rules and procedures 
— Forward/backward chaining 


a very fine expert system development “ feast testing and rule tracing 


— End-user explanation facilities 


bf — Graphics image capture and display 
an e very too t rea y — Interfaces to dBase™, Lotus 1-2-3™, DOS files, 
-EXE or .COM programs, “C” 


— Complete LISP development environment 


a proven record with end-users.” ~ Peni expanded ened mer supa 


— Context sensitive help 
— “Getting Started” tutorial-style manual 


— Susan Shepard, Al Expert 


Personal Consultant Images 
— Optional add-on package to PC Plus (3.0) 
— Allows integration of “active images” into 





what serious expert 









knowledge bases 

— Interactive dials, gauges, forms and selection 
images 

— Multiple images can be combined on same 
screen 

— “Getting Started” tutorial-style manual 


Personal Consultant Online 

- ane add-on package for PC Plus a : 

— ONLINE expert systems that interact directly with 
rocess data 

— Multiple interfaces to data acquisition and 

analysis programs 

- we base synchronization with process 
ata 

— Functions for historical and predicted trends 

— Special user interface/reporting capabilities 

— “Getting Started” tutorial-style manual 









Power tools. 


Among all the expert system devel- 
opment tools available for personal 
computers today, none deliver the 
power and flexibility of Tl’s Personal 
Consultant series. 

Personal Consultant Easy is ideal for 
getting started, and is upwardly com- 
patible with the higher functionality of 
PC Plus. For experienced developers, 
Personal Consultant Plus and its 
optional add-on enhancements, Online 
and Images, were designed to help solve 
a broader range of complex problems. 


+ Lotus 1-2-3 


+ dBase Il, 1H, Plus 


+ DOS files 


« .EXE and .COM programs 
_ Customize in LISP or “C” 


LISP or “C” Delivery 
__| Embedded or Stand-alone 





Personal Consultant Plus. Full power 
for an affordable price. 

At $2,950, PC Plus has proven to be 
one of the richest and most flexible 
problem-solving tools available for the 
development of complex knowledge- 
based systems. Designed to take 
advantage of today’s more powerful 
286/386 DOS-based computers, or TT’s 
Explorer™ Symbolic Processing System, 
the new 3.0 version of PC Plus provides 
powerful standard features and a contin- 


uing growth path with the addition of 
either PC Images or PC Online, or both. 


Personal Consultant Images. Picture 
an expert system with interactive 
phics. 
At $495, PC Images enables developers 
to create knowledge-based applications 
that incorporate complex graphical 
“active images.” User-interactive dials, 
gauges, forms and selection images pro- 
vide a more exciting visual data input 
and output style. 


Personal Consultant Online. The 
expert system as part of the process. 
At $995, PC Online allows the devel- 
oper to design expert systems which 
interact directly with process data, as 
opposed to input from a human oper- 
ator. Designed for intelligent process 
monitoring applications, this optional 


Common LISP Delivery 


package helps deliver expertise that is 
“online all the time.” 


Application delivery as flexible as the 
tools themselves. 

Delivery can be in LISP for flexibility, 
or “C”* for maximum speed and porta- 
bility. Our “C” options support either 
stand-alone or “embedded” knowledge 
bases. Options are available for DOS- 
based PCs, Tl’s Explorer, and DEC’s 


VAX™ line of multi-user minis running 


under VMS™. 


PC IMAGES 
‘Active Images | 


“Texas Instruments has done more 
than any other company to educate 
people about AI, to popularize it, and 
to make useful AI tools available at 
reasonable prices.” 

— Jim Seymour, PC Magazine. 


Technical support, training courses and 
Knowledge Engineering Services are 
available for the Personal Consultant 
products. If you have a question about 
any of our expert system power tools, we 
have the answer. 


Pick up the phone and gain a powerful 
advantage. 

Call 1-800-527-3500 for technical 
overviews of our products and a PC Plus 
case histories brochure which details 
how our power tools are being put to 
work today. 


36106 
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A-to-D Conversion 

Dear DDJ, 

I have some comments on John Mus- 
selman’s article on page 22 of the 
June issue. All but the first are Com- 
plaining Songs, but remember the 
first is first because it’s important. I 
would not complain about details if I 
didn’t like what the author was 
doing. 


1. The circuit in Figure 1 and the in- 
sight that it suffices to digitize volt- 
ages are delightful. I can only gasp 
“Nifty!”” and “Why didn't I think of 
that?”’ 

2. The proof of a pudding, however, 
is in the eating. I want to see calibra- 
tion data before I believe it’s so easy. 
Some of the problems I antici- 
pate are saturation effects | 
when the unknown voltage | 
gets close to the limits (for ex- | 
ample, 0 or +5 volts) and in- 
terrupt latency jitter. I don't | 
know how your TMS7000 | 
works, but the specs for my | 
Z80A seem to say that the de- 
lay from the interrupt signal 
to start of the interrupt rou- 
tine can vary by 5.8 microsec- 
onds, depending on what the 
CPU is doing when the inter- 
rupt comes. I guess it could be 
even longer if other inter- | 
rupts were active. The aver- 
aging process would tend to 
wash out any effect, but I 
would try some worst-case 
tests to see if it Causes any 
trouble. 

3. Whenever the input volt- 
ages at the comparator are not 
(nearly) equal, the Out bit 
stream will be solid 1s or Os 
until the voltages become 
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equal. These bits don’t belong in your 
average, so you must—if there is any 
chance that an average will be asked 
for before comparator voltages get 
equalized—delay accumulation of 
the average until at least one transi- 
tion 0<==>1 comes down the bit 
stream. I don’t see this safety feature 
in the software, but it would be need- 
ed, for example, for a time multiplex 
application, in which a sequence of 
voltages was measured one after the 
other. When John Musselman pro- 
poses a digitizer using only one I/O 
bit, lam impressed, but when I see it 
needs more than a second per chan- 
nel in time multiplex, I start to nod 
off. 


Why not go at it like this? Let the 
time constant, RC, be much longer 
than the period, P, between inter- 
rupts (for example, 1 millisecond). As- 
sume you know the voltage, V(T), on 
the capacitor at time T, when an 
Out=1 period begins. By Ohm’s law 
the current into C is I(T)=(H— V(T))/R, 
where H is the logic 1 voltage. Be- 
cause P<<RC, the total charge flow 
during this interrupt period is very 
nearly P(H—V(T))/R, and the voltage 
at T+P is, to first order in P, ViT+P)= 


Arthur's entry into software piracy was marred 
somewhat by his lack of professional discretion. 


V(T) + P(H — VT) /(RO) = V(T)(1 — P/ 
(RC))+HP/(RC). If, instead, a 0 is sent 
out, V(T+P)=V(T)(1—P/(RC))+ LP/ 
(RC), where L is the logic 0 level. 

In words, the voltage on C at the 
end of a period is the average of the 
voltage at the start of the period, 
weighted by 1—P(RO), and the volt- 
age Out, weighted by P/(RC). Repeat- 
ing the procedure, you can calculate 
V(T+ 2P) and so on. 

The “old” voltage is always multi- 
plied by (1—P/(RO)). This is a “forget- 
ting factor’ because it is close-to-but- 
rigorously-less-than 1. (The 
arithmetic needs some thought lest 
truncation error obscure this fact.) So, 
even if you use a wrong number for 
V(T), the error gets squashed down 
by one forgetting factor at each inter- 
rupt; V(T) and the actual voltage on C 
get ever closer. But you don't need to 
guess V(T): initialize Out to logic 0 be- 
fore loading the program, and start 
interrupts at T=0 with the (excellent) 
assumption that V(0)=L. 

Meanwhile it’s still true that a bit 
stream transition 0<==>1marksa 
voltage crossover at the comparator 
inputs, so the current value of V(T) is 
already a good estimate of the un- 
known voltage; nothing is gained by 
averaging for another second. 

Thus, in a given setup, John 
Musselman’s method (usually 
called the boxcar average) and 
the forgetting-factor average 
converge to the same result 
on a DC voltage. But when the 
boxcar algorithm is ready to 
start measuring, the forget- 
ting-factor algorithm already 
has the answer. 

The pudding is still pie in 
the sky. I will not be able to 
run the necessary tests soon, 
but I hope that someone else 
will do so and send me the 
conclusions. 

R. W. Hartung 

408 Orchard 

East Lansing, MI 48823 


Curses 

Dear DDJ, 

Thanks to Allen Holub for his 
article on curses [C Chest, July 
1987]. Last year I, too, needed 
a curses package to assist in 
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The Leaders Made PVCS ; 
The Leading Source Code Control System: 


hen it comes to maintaining their most 

valuable asset, the leading software 
publishers rely on the POLYTRON Version Con- 
trol System (PVCS). From accounting firms to 
airlines, the leading service companies depend 
on PVCS to maintain the integrity of their pro- 
grams. Leading manufacturing companies use 
PVCS to maintain their state-of-the-art software. 
Leading high technology companies turn to 
PVCS to handle configuration management for 
software projects that represent an investment 
of hundreds of thousands of dollars. The largest 
aerospace companies and defense contractors 
use PVCS to maintain integrity of projects during 
development and after delivery of software. 
Independent programmers use PVCS to 
improve their productivity and software quality 
for themselves and their clients. 


Simplify 
Configuration Management 


When large and complex software programs are 
being developed on personal computers or VAX 
minicomputers, effective management of the 
revisions and versions becomes critical. PVCS 
simplifies this process and lets you effectively 
control the proliferation of code changes. We 
used UNIX SCCS and RCS as models. How- 
ever, our own experience, and the input of 
hundreds of programmers and managers has 
enabled us to significantly improve upon these 
models. 


PVCS provides many 
powerful functions including: 

e Storage & Retrieval of multiple revisions of text. 

e Maintenance of acomplete history of changes. 

e Maintenance of separate lines of development 
using branching. 

e Merging simultaneous changes. 

e Resolution of Access Conflicts. 

e Modules can be retrieved by their own revision 
number, system version name, or specified 
date. 

e Uses “reverse deltas” to rebuild a prior version 
making PVCS the fastest version control 
system over the project life cycle. 

e Projects already under development or in the 


maintenance stage can be easily put under the 
control of PVCS. 


Manages Development On 
Local Area Networks 


Programming teams using Local Area Networks 
depend on PVCS to help the managers and 
team members work together. In fact, Novell and 
3Com themselves depend on PVCS to manage 
the versions of their own network software 
products. 
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Supports MS-DOS 
and VAX/VMS Development 


Now, companies that develop software on VAX 
systems running VMS can also use PVCS. And 
since the VMS and MS-DOS versions of PVCS 
use the same “logfile” format, you can easily 
develop software on PCs and maintain the code 
on the VAX or vice versa. The menu-driven, 
screen-oriented interface (and optional 
command-driven interface) makes it easy for 
programmers and librarians or administrators to 
use PVCS on aPC or VAX or both systems. 


PVCS Maintains System 
Integrity 
PVCS prevents corruption of code that could 
ordinarily result from security breaks, user care- 
lessness or malfunctions. The levels of security 
can be tailored to meet the needs of your project. 


PVCS & PolyMake 
Work Together 


PolyMake, the leading MS-DOS make utility, is 
now available for the VMS operating system. 
This allows you to write makefiles that will func- 
tion in both PC and VAX environments. Addition- 
ally, PolyMake reads time & date stamps of PVCS 
archives for fast, accurate program rebuilding. 


PVCS and PolyMake Maintain 
Source Code Written In 
Any Language. 


Only PVCS meets the needs of independent 
programmers and corporations. Once you stan- 
dardize on PVCS, the archives used to track and 
monitor changes are interchangeable between 
any PVCS product. You will receive full credit for 
your initial purchase if you upgrade to a higher- 
priced MS-DOS version of PVCS. 


Personal PVCS — Offers most of the power and 
flexibility of Corporate PVCS, but excludes the 
features necessary for multiple-programmer 
projects. 


Corporate PVCS — Offers additional features to 
maintain source code of very large and complex 


projects that may involve multiple programmers. 
Includes multi-level branching to effectively main- 
tain code when programs evolve on multiple 
paths (e.g. new versions for different host 
systems, or anew program based on an existing 
program). 


Network PVCS — Extends Corporate PVCS for 
use on Networks. File locking and security levels 
can be tailored for each project. 


PVCS for VAX systems — Requires VMS. Uses 
the same interface and archive format as MS- 
DOS version. Supports branching and offers file 
locking and other security features for multiple- 
programmer projects. 
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The Preferred 
Version Control System 


The customers listed below are just a few of the 
innovative leaders that have made PVCS the 
leading version control program for personal 


computers. 


Alcoa Aluminum 

Arthur Anderson 

AT&T 

Ashton-Tate 

Bank of America 

Bell Labs 

Bendix 

Boeing 

CIGNA 

Citibank 

3Com 

Colonial Penn 
Commerce Clearing House 
Control Data Corp. 
Corvus 

CXxl 

Digital Equipment Corp. 
Deloitte Haskins + Sells 
Diebold 

Dow 

Dunn & Bradstreet 

EDS 

Educational Testing Service 
E-Systems 

Equitable Life 

Federal Express 

First Boston 

Ford 

Fox Software 

Fujitsu 

GTE 

Hardees 
Hewlett-Packard 
Honeywell 

Hughes Aircraft 

IBM 

Industrial Networking 
Intel 


ISC Aerospace 
IVAC 


Javelin 

Lattice 

Lawrence Livermore 
Lotus 

McData Corp. 
McDonnell Douglas 
Mead Data Central 
MIT Lincoln Labs 
Nastec 

Novell 

NCR Technologies 
Pitney Bowes 
Plexus Computers 
Price Waterhouse 
ROLM 

Rockwell International 
Safeco 

Sears 

Security Pacific 
Sperry 

Software Publishing 
Spacelabs 

Standard Oil 
Standard & Poors 
Tandem 

Tektronix 

Telex 

Texas Instruments 
Touche Ross 

Unisys 

United Airlines 
United Parcel Service 
United Technologies 
U.S. West 
Westinghouse Electronics 
Xerox 
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Personal PVCS $149 


NetworkPvCS | $995** | $4,950 | $9500 |$10,500+ 
Network $447"* $2,375 | $2,500+ 
PolyMake 


“Compatible with MS-DOS 2.0 through 3.3. 
Compatible with the IBM PC/XT/AT & other 





MS-DOS PCs. 


**5 Station LAN License. Call for pricing 


on larger Networks. 


TO ORDER: 
VISA/MC 1-800-547-4000. 
Dept. No. 355 
Oregon & Outside USA call (503) 645-1150. 
Send Checks, RO.s to: POLYTRON 
Corporation, 1815 NW 169th Place, 
Suite 2110, Beaverton, OR 97006. 
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LETTERS 


(continued from page 12) 


porting code between my PC and 
Unix, so I ended up writing my own. 
Since then, my package has been ex- 
panded significantly (it now provides 
almost full Unix System 5 compatibil- 
ity). After receiving several requests 
for it, I decided to distribute my pack- 
age (now called PC Curses) as 
shareware. The package is compati- 
ble with Microsoft C 4.0 and includes 
small- and large-model libraries. If 
any DDJ readers are interested in ob- 
taining a copy, they can do so by 
sending me one 514-inch floppy along 
with a mailer, return label, and post- 
age (or $5). Readers outside the US. 
should write for information. 

Just a few comments/clarification 
about the article. After complaining 
about the missing vsprintf function, 
Holub may be happy to hear that 
vsprintf is beginning to appear on 
various Unix systems (I know that 
Unix System 5 has it). His comment 
about using nl (instead of nonl ) seems 
logical, but Unix curses encourages 
the latter; moreover, some imple- 
mentations of Unix curses fail to 
work properly unless nonl is speci- 
fied. The comment that “... the re- 
fresh() command only works under 
the real curses if all windows are sub- 
windows of stdscr’’ is incorrect if it is 
referring to subwindows created by 
subwin(); I suggest that readers forget 
they ever read that sentence. Also, 
Holub made several other comments 
about subwindows that are incorrect 
or confusing, and I suggest that any- 
one using other versions of curses 
consult the documentation (or code) 
for more information. 

Jeff Dean 

710 Chimalus 

Palo Alto, CA 94306 


Educatin’ 

Programmers 

Dear DDJ, 

I wish to comment on the letter 
from Neil Pignatano published in 
your July 1987 issue. 

I agree with Mr. Pignatano’s asser- 
tion that mathematical reasoning is 
the best paradigm for passing on crit- 
ical analytical skills to students of 
computer programming and is cer- 
tainly superior in this regard to classi- 
cal languages, as suggested by Allen 
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Holub in his Viewpoint of April 1987. 

I most stringently disagree, howev- 
er, with the point Mr. Pignatano 
makes next—that there are enough 
“text editors, database managers, and 
so on.” I believe that the era of truly 
productive productivity programs is 
just beginning to emerge and that it is 
precisely this field that will offer the 
most challenges and opportunities 
for programmers in the future. 

Mr. Pignatano’s views on “‘elec- 
tronic desk’’ software are well 
known (to his coworkers), but I feel 
that he is missing out on the possibili- 
ties that are continually offered by 
new developments in hardware 
technologies; Neil may be content us- 
ing TECO for his text editor, but I cer- 
tainly am not! 

Mr. Pignatano, as a physicist and a 
scientific programmer by profession, 
perhaps does not appreciate the de- 
gree to which difficulty of use and 
obtrusiveness (I might say ‘‘pig-hea- 
dedness’’) of most currently available 
software tools inhibits the applica- 
tion of computer solutions to many 
tasks in business, education, and even 
technical environments. Unless text 
editors, database managers, and 
spreadsheet software begin to re- 
spond in consistent and predictable 
(to the new and occasional user) 
ways, microcomputers will fail to 
reach a significant fraction of their 
potential markets. 

Naturally, this belief of mine leads 
me to conclude differently from Mr. 
Pignatano on the place of scientific 
programming in the education of 
programmers. Rather than the 
strong emphasis that Mr. Pignatano 
would have it given, I feel that the 
overhead intrinsic in the explanation 
of scientific problems for computer 
solution make them more appropri- 
ate for only occasional use in comput- 
er science curricula. I maintain, rath- 
er, that scientists of all sorts should be 
given a strong background in com- 
puter programming techniques that 
they will be able to apply to the en- 
deavors of their own disciplines—a 
point on which I sense that Neil Pig- 
natano and I can agree. 

Martin Veneroso 

1646 Latham, #10 

Mountain View, CA 94041 





VM/RUN Update 

Dear DDJ, 

Your readers may be interested in 
the following updates to Richard 
Relph’s review of VM/RUN from 
Softguard Systems [see the July 1987 
issue]. The February version, which 
he reviewed, has been superseded by 
Release 1.10, which is now available. 

The 7 to 15 percent penalty in exe- 
cution time has been totally eliminat- 
ed. The problem was caused entirely 
by diagnostic code that kept the 
“global exact’’ flag on at all times. 
This resulted in instruction fetch deg- 
radation. Subsequent benchmarks 
(with test problems provided by your 
reviewer) have shown comparable 
results between the VM/RUN envi- 
ronment, which runs at CPL 3, and 
Phar Lap’s, which runs at CPL 0. 

Full directory path support is now 
available. Support files no longer 
have to be in the current directory, 
and the number of files has been 
reduced. 

Significant improvements have 
been made in application load times. 
Large-scale applications of 42 mega- 
byte in size are typically loaded in 
about 5 seconds on a Compaq Desk- 
pro 386. 

Finally, let me say that, with the 
addition of a symbolic debugger and 
new features, such as the capability 
of calling 8086 code from a 386 pro- 
gram and vice versa, the VM/RUN en- 
vironment offers software develop- 
ers a powerful tool for the creation of 
386 applications. 

Ken Williams 

Softguard Systems Inc. 

2840 San Tomas Expy., Ste. 201 

Santa Clara, CA 95051 


The Problem Is 
Architecture 
Dear DDJ, 
Frank Albe’s letter in Ray Duncan’s 
July 1987 16-Bit Software Toolbox col- 
umn doesn’t get to the point about 
the computer language controversy. 
The problem is not with the lan- 
guages but with the computer archi- 
tectures that (do not) support them. 
Computers are integer manipula- 
tors with simple decision-making ca- 
pabilities. But the world is not com- 
(continued on page 144) 
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Try One And Get Our MS- DOS/PC-DOS Guide 


THE POP-UP REFERENCE 
REVOLUTION BEGINS 


_ How much development time could you save if 
you never had to open another PC language or 
technical reference manual again? What if you 
could just point at a compiler keyword, assembly 
instruction, or function name on your screen and 
with a keystroke have complete, authoritative 
information about language syntax, operands, 
parameters, examples, and much more? 


INTRODUCING THE RESIDENT 
EXPERT SYSTEM 


A growing library of comprehensive, disk 
resident reference guides about the PC and your 
favorite PC languages. All available instantly 
through our unique memory resident pop-up 
access system. 


VIRTUALLY EVERYTHING YOU 
NEED TO KNOW 


Each of our Compiler Reference Guides 
- contains virtually everything you need to know 
to program with your preferred implementation 
of your favorite language. Language syntax, all 
library functions, compiler directives, and error 
codes are thoroughly documented. 


Our PC Programmer's Reference Guide 
documents every PC (and AT) processor 
instruction and every BIOS and DOS service 
interrupt. You'll also find tables of keyboard 
codes, line drawing, ASCII, and IBM character 
sets, and much more. 


THE SPECIALIST’S LIBRARY 


Your compiler is unique. That’s why our 
reference guides are specialized...each one 
designed for a particular vendor’s language 
implementation. 


Absolutely FREE! 


Free With Any Purchase! 


Our Companion Pop-up GuideTo 
MS-DOS3.2/PC-DOS 3.3 


Limited Time Offer 





QUICK DRAW ACCESS SYSTEM 


Point-and-shoot...just place the cursor over any 
term on your screen. Chances are we ve got it 
fully detailed in one of our data bases. 


Fully cross indexed...if the instruction or library 
function you re using isn’t quite right, our related 
topics cross index can help you find a better one. 


Multiple volumes on line...you can have one or 
a dozen of our pop-up reference guides on 
line...a complete library available instantly. 


THE INFORMATION YOU 
NEED...WHERE YOU NEED IT 


Our pop-up shell varies its size and shape 
dynamically, only taking as much space on your 
screen as it needs and it mever covers your 
working area. You can see your work and our 
reference data at the same time. 


A COMPLETE LIBRARY...STILL 
ONLY A BEGINNING 


At Santa Rita, our commitment is to provide the 
most accurate, extensive selection of PC 
language reference materials available. If you 
don’t see one of our guides for your favorite 
language or compiler listed below don’t worry, 
we re probably working on it! 


PC Programmer's Reference Guide . . . $59.00 
(with Assembly Language Guide) 
Borland lurboC 70 ................ 59.00 


Borland Turbo Pascal (3.0 and below)... . . 59.00 
(with Graphics & Numerical Methods Toolbox) 

Borland Turbo Prolog (1.1 and below)... .. 59.00 
(with Prolog Toolbox) 

Lattice C Compiler (3.2 and below)....... 59.00 

Mark Williams LetsC (4.0 and below)... .. 59.00 

Microsoft C Compiler (5.0 and below)... .. 59.00 


SantakRita 


For the location of your nearest Santa Rita 
Software dealer, or to order direct, call us at 
1-214-727-9217. Wed like to hear from you. 


Santa Rita Software 
1000 E. 14th Street, Suite 365 
Plano, Texas 75074 


The RESIDENT EXPERT System 





Resident Expert is a trademark of The Santa Rita Company. Borland, Turbo C, Turbo Pascal, _and Turbo Prolog are trademarks of 
Borland International Inc. IBM and PC-DOS are trademarks of International Business Machines Corporation. Lattice C is a 
trademark of Lattice Inc. LetsC is a trademark of Mark Williams Company. Microsoft and MS-DOS are trademarks of Microsoft 
Corporation. - 
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A Number of Reasons A Number 


Thousands of DOS Programs PC-MOS/386™ 
@ gives you the best of the past, and the best for your 
P future. Which means that while PC-MOS/386™ totally replaces 
©" your old DOS, you won’t have to replace the programs you’ve 
spent a lot of time learning. 








] Designed UT 
e for the 80386 There's : ) 

revolution taking place in desktop anaes A revolution 
that’s been launched by a square wafer of silicon known as the 
80386 microprocessor chip. It puts minicomputer potential at 
PC users’ fingertips. It’s a fact that virtually every leading PC 
manufacturer has built a “box” around this chip. And it’s a fact 
that the “New Operating System” will, supposedly, even run < 
on it. But, it’s also a fact that their system wasn’t designed for 


the 80386. Ours is. Andit’s , 4) called PC-MOS/386™ 





PC and PS/2 
e Compatible 
In designing PC-MOS, we 
Knew our first priority was 
to exploit the minicomputer 
capabilities of 80386-based 
PCs & PS/2s. But we went 
further, and developed a 
system which would be fully 
existing PCs, PC ATs, and 










compatible with the millions of | 
PC-compatibles. Power without if sacrifice. You’d expect 
nothing less from the new standard bearer. 










And it all happens so effortlessly. You'll continue 

to reap the benefits of your favorite DOS programs, 

wale entering a new arena of power. 

. Think of it! Programs like dBASE III, 
= WordPerfect, Lotus 1-2-3 and Sym- 

=F phony, WordStar, MultiMate.. literally 

E thousands of DOS programs-all com- 

& patible and multi-user available. 
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5 e Commands 
Like DIR and COPY | 
Just as you don’t have to | 
learn a whole new array of =a = eet 
software to take advantage of PC-MOS/386;" veithes on you 
have to learn an entirely new set of commands. 

Instead, the system builds on the knowledge you already 
have. “COPY” still copies files, and “DIR” still gives you a 
directory listing. As you might expect, we didn’t stop there. 
There’s a wealth of features that have strengthened the com- 
mands you know, making them more powerful and easier to use. 





One, Five, Up to Twenty-five Users 
@ From the beginning, PC-MOS/386™ was 4 
designed as a versatile operating system which , 
could support twenty-five users as easily : 
as it supports one. The system comes in 
single, five, and 25-user modules, so 
you're able to start with what you need 
and expand when you're ready. 
In a multi-user setting, PC-MOS/386™ uses the 


computing power of the host PC to drive workstations 
linked to standard RS-232 ports. 








You can choose from a variety of work- 
stations. Mix and match dumb terminals 
costing under $500 each with PCs and 
PS/2s running our terminal emulation 
software. 

‘eo ee All of the host’s resources can be 
| (jum ease) shared. Programs, data, hard disks, 
~~ tape backup units & printers (including 
\ high speed laser printers) are suddenly available to all 
users. An 80386-PC has minicomputer potential. 
With PC-MOS/386™ you can “mini” your micro. 





Concurrently Supports Virtual 8086 and 
e 80386 32-Bit Mode 





80386- based PCs & PSI2s are dual- védaglie computers. Tb 

run DOS programs, they act as PCs with a 640K memory limit. 
But to take advantage of their minicomputer capacity, they operate 
in true 80386 mode which lets them address up to four gigabytes 
of memory. PC-MOS enables the 80386-host and its workstations 
to independently switch between these modes-making DOS 
compatibility and 80386 power simultaneously possible. 


Multi-Tasking 

@ While it’s true you could look else- 

where for multi-tasking, why would you 

want to? The other multi-tasking operating “= 

system 1s not now, nor is it planned to be, 

multi-user. It won’t even run multiple DOS appli- 
cations in multi-tasking mode. 

Now consider PC-MOS/386™ At the touch of a key, 
you can switch between up to 25 different tasks. And if you have 
workstations connected to a host, they get multi-tasking, too. 
Finally...a system that won't hold you back. 
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* File/Record Locking and 
@ Security When you decide to 


implement either a network or a multi- 
user system, there’s a two-fold problem 
which must be solved: protecting 
your work from accidental misuse 
and securing it from intentional theft. 
PC-MOS/386™ solves both aspects of this problem. Password 
protected security allows you to assign file, directory, and task 
access to each user. Plus, files and records are locked using either 
PC-MOS’ proprietary system or NETBIOS emulation. 





of Users Will Choose PC-MOS/ 




















It’s been said that information 1s 
power...which makes PC-MOS/386™ a deadly weapon to your 
competition. Imagine on-the-road salespeople being able to file 
call reports and access your latest inventory data. Picture execu- 
tives being able to access your corporate database from across 
the country, or around the world-giving them the information 
they need, when they need it. 

Visualize branch offices tapping time-critical data with 
nothing more than a modem and a workstation. Working at a 
home office in the evening or over the weekend suddenly gets 
awfully productive. And that makes good business sense. The 
kind of sense you can’t afford to be without. 

The Price...As you 


] @ cvaluate operating systems, 

ask yourself if it’s reasons you're consider- 
ing...or rhyme. Ask if you’re getting a 
system for tomorrow, or one that was made 
for yesterday. See if you’re being forced to buy 
new hardware because of therr software. 
And consider this. 

Only one operating system in the world can 
give you the raw power, features, and SRO a a you 
demand. Its name is PC-MOS/386°.<™>< : 

And it’s immediately availablein  @ 
one, five and 25-user versions starting 
at $195. 


PC-MOS/386™ is a trademark of The Software Link, Inc. PS/2, PC AT, NETBIOS, dBASE III, 
MultiMate, WordPerfect, Lotus 1-2-3 & Symphony, & WordStar are trademarks of IBM Corp., Ashton-Tate, 
WordPerfect Corp., Lotus Development Corp., & MicroPro, respectively. Prices and technical specifications 
subject to change. Copyright © 1987. All Rights Reserved. 


For the dealer nearest you, In Georgia: — International/OEM Sales: Resellers/VARs: 
CALL: 800/451-LINK 404/441-2580 404/263-1006 404/448-5465 


3577 sh Lm Atlanta, GA 30092 Telex 4996147 SWLINK FAX 404/263-6474 
= The Software Link/Canada CALL: 800/387-0453 
DEALER INQUIRIES INVITED 
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ARTICLES 


Asvnc AppleTalk 


by Richard E. Brown and Steve Ligett 


or most users Apple- 
HH Talk appears to be 

nothing more than an 
expensive cable. Actually, it’s 
much more. It’s a complete 
family of data communica- 
tion protocols designed to al- 
low Macintoshes and other 
computers to share periph- 
erals and resources. Although the initial AppleTalk service 
provided a printing connection between a Macintosh and 
an Apple LaserWriter, these days there are literally dozens 
of products, including other high-quality output devices 
and disk or file servers, that take advantage of this 230.4- 
kbps link between devices. 

Async AppleTalk, a software application developed at 
Dartmouth College, was implemented to expand the po- 
tential of this network by allowing AppleTalk devices to be 
connected over an asynchronous (RS-232) link. The soft- 
ware provides low-cost, remote access to AppleTalk de- 
vices and works with nearly all AppleTalk applications. 

The first step in designing Async AppleTalk was to de- 
fine the necessary protocols. A protocol is a set of rules that 
two or more parties (human or computer) use to conduct 
orderly discourse. A protocol might, for example, involve 
two computers negotiating to send a file between them. 
The conversation could be as simple as that illustrated in 
Figure 1, page 20. A real protocol would have to specify 
what would happen if computer B couldn't take a file that 


Richard E. Brown and Steve Ligett, Kiewit Computer Crtr., 
Dartmouth College, Hanover, NH 03755. Rich is manager of 
special projects at Dartmouth. He has been writing commu- 
nications software for seven years and is a member of the 
IEEE and the ACM. Steve is an engineer in the special pro- 
jects group of the computing services department at Dart- 
mouth. He writes software for personal computers and de- 
signs and builds hardware for Dartmouth’s local-area 
network. 
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The design and 
implementation of an 


RS-232 enhancement 
to the AppleTalk 
protocols 





big, or if it already had a file 
named FRED, or if it wasn’t 
saved correctly at the end. 
But you get the picture—a 
few more rules could make 
the scheme watertight. 

If you were designing the 
program to implement this 
protocol, you would like the 
code to be about as simple as the problem definition. The 
top-level code should implement the rules mentioned 
earlier: it shouldn't have to worry about each little mis- 
hap that might occur anywhere in the transmission 
chain. Consequently, you would design this simple file 
transfer protocol as a network layer and delegate to an- 
other layer the responsibility for detecting errors, re- 
transmitting corrupted messages, or sending messages 
around a network. 

Network layering brings to data communications the 
simplicity that structured programming brings to soft- 
ware. Using layers designers can isolate issues and design 
solutions for each of the separated areas—for example, 
code that detects transmission errors solves a very differ- 
ent problem from code that implements the file transfer 
protocol discussed earlier. 

Layering also allows substitution of equivalent services 
by a different implementation. The link access protocol 
(LAP), for example, is generally responsible for sending 
sequences of bytes (frames) on a wire. Different LAP soft- 
ware and/or hardware can use different kinds of wire. 
The standard AppleTalk Link Access Protocol (ALAP) lay- 
er uses twisted-pair wire. Async AppleTalk replaces that 
wire with a modem or RS-232 link. Another LAP replace- 
ment is an AppleTalk to Ethernet converter—it uses the 
10-Mbps link to deliver AppleTalk datagrams. All three 
LAP layers have their place; none of them could have 
been done if the highest-level code had to deal with all the 
successive details of data transmission. 

Each network layer provides a well-defined service toa 
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higher-level client. The client then communicates with a 


peer across the network. The effect is that peers appear to” 


be talking directly to each other, as if the lower layers 
weren't there at all. Each layer specifies the means of 
communicating with its peer—the protocol—and the ser- 
vice it will provide to its clients. 

Peers communicate by asking a lower layer to perform 
a service for them. The lower layer can, in turn, invoke 
still lower layers to do more work. The lowest layer—the 
physical layer—is the electronics that sends and receives 
the bits across a link. At the other end, each layer, starting 
at the lowest, passes the received data up to its client until 
the messages reach the peer of the originator. 

Another concept in networking is the onion-skin prin- 
ciple. When a layer has data to communicate with its 
peer, it passes the data to the next lower layer. That layer 
adds its own information (called a wrapper) and passes 
the message to the next lowest layer, and soon. When the 
message gets to the bottom (physical) layer, it is actually 
transmitted. Each peer at the other end verifies any infor- 
mation contained in the header, removes the correspond- 
ing wrapper, and passes the resulting data up to its cli- 
ent—thus, the analogy to the layers of an onion. In the 
earlier file transfer example, the file transfer layer might 
send data to a layer that guarantees delivery of the infor- 


mation it was given. This layer could wrap routing infor- — 


mation around the message and pass it on to the LAP 
layer to be sent out on the wire. Figure 2, page 20, shows 
these transformations. 

There is an interesting symmetry in the transmit and 
receive algorithms. Data to be transmitted is passed down 
through subroutine calls from one layer to another until 
it is finally transmitted on the link. Just the opposite se- 
quence occurs when a frame arrives in a computer. The 
receiver accepts characters until it gets a full frame. If the 
frame is good (CRC OK, proper length, and so on), the 
receiver makes a subroutine call to the next layer with 
the data as a parameter. Depending on how the software 
was set up, that layer may make further subroutine calls 
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to its next higher laye 
final recipient. 

For a detailed and quite read xplanation of net- 
working, take a look at Tanenbaum’s Computer 
Networks. 


The AppleTalk Protocols 

Each protocol of the AppleTalk family performs a specif- 
ic function. The AppleTalk Transaction Protocol (ATP), 
for example, specifies how multiple blocks of data (a 
transaction of, say, eight disk blocks) can be reliably trans- 
ferred between nodes (that is, Macs) on a network. The 
Name Binding Protocol (NBP) specifies how to convert a 
(text) name to a (numeric) network address. The full de- 
tails of the AppleTalk protocol family are available from 
Inside AppleTalk. 

Both ATP and NBP rely on the ability to send a single 
message through the network, possibly directing (rout- 
ing) the message through multiple links. The Datagram 
Delivery Protocol (DDP) specifies how these messages are 
routed. Another protocol, the Routing Table Maintenance 
Protocol (RTMP), describes how to maintain tables of rout- 
ing information. 

All AppleTalk protocols rely on the ability to send a 
frame of data (an orderly sequence of 8-bit bytes) to a 
neighbor node. The AppleTalk Link Access Protocol 
(ALAP) specifies the rules for access to the twisted-pair 
bus, which connects devices on AppleTalk. Just as with a 
telephone party line, AppleTalk devices must cooperate 
to keep their messages from interfering. ALAP uses a 
three-way exchange to minimize the time wasted by col- 
lisions. The initiator of the frame listens to see if the bus is 
in use; if so, it waits arandom amount of time and retries. 
If the bus is idle, the initiator sends a request-to-send (RTS) 
frame to the intended recipient. If the recipient is pre- 
pared to handle the data, it responds with a clear-to-send 
(CTS) frame. If the initiator receives the CTS, it then sends 
the data. 

If two devices begin to transmit simultaneously, their 
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RTS frames will collide, garbling both. Their recipients 
will not receive the RTS correctly and will not respond. 
Each initiator will fail to receive a CTS, wait a random 
amount of time, and then retry the transmission se- 
quence. By waiting a random interval, one of the initia- 
tors will retry first and will probably succeed. 

A final (and very important) point: notice that ALAP 
does not guarantee correct delivery of a frame. A trans- 
mission error could garble a frame; when that occurs, the 
recipient simply discards the frame as if it had never ar- 
rived. How does the data ever get through? Higher layers 
(ATP or NBP) establish rules for acknowledging messages 
that must be delivered. 


An AppleTalk Implementation 

In late 1983, Dartmouth College recommended that the 
freshmen entering in the fall of 1984 purchase Macintosh 
computers. It also decided to expand its campuswide data 
network to support communications in the students’ 
rooms. At that time, Dartmouth had a network of 1,800 
terminal ports (asynchronous, RS-232 hard-wired and 
dial-up ports) served by approximately 40 network nodes 
(minicomputers) that were located in the basements of 
academic and administrative buildings. A user at any ter- 
minal could connect to any host computer as well as to 
the library’s on-line card catalog, a campus events calen- 
dar, or other off-campus networks. 


Computer A 
Take a file called FRED of length 123456 
Here it comes. 

<much data flows> 


That’s all. Save it. 


Thanks. 


Figure 1: Two computers negotiating to send a file between them 


File transfer layer 


Reliable 
delivery 
info 


Reliable delivery layer 


Reliable 
Routing info | delivery 
info 


Routing layer 


Reliable 
delivery 
info 


LAP Layer 


LAP info | Routing info 


Figure 2: The layer onion skin 
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Computer B 





File transfer info 
Take FRED length 123456 


File transfer info 
Take FRED length 123456 


File transfer info — 
Take FRED length 123456 


File transfer info CRC 
Take FRED length 123456 





Over the summer of 1984, AppleTalk support was added 
to the network. Immediately, the number of nodes was 
more than doubled (to a total of 95) to support the dormi- 
tories. The dorms were wired with 2,600 AppleTalk out- 
lets, one plug per pillow. We decided not to retrofit all the 
async ports to AppleTalk as it would have been prohibi- 
tively expensive. 

We also developed a terminal emulation program, 
called DarTerminal, which works across this AppleTalk 
network to all the host computers. DarTerminal acts as a 
VT-100 terminal, a TEK10 (4012) graphics terminal, and a 
distributed screen editor, in which the Macintosh acts as a 
screen manager for a back-end host editor (now available 
on the DCTS, VAX/VMS, and Unix systems). DarTerminal 
also offers simultaneous terminal sessions, cut-and-paste 
transfers between sessions, and file transfers of entire 
Macintosh documents. 

Unfortunately, in that one stroke, we rendered obso- 
lete the 1,800 asynchronous ports located in the college’s 
academic and administrative offices. Of course, the ports 
still worked, but over time, as people in those offices 
bought Macs, they couldn’t get the benefits of AppleTalk 
that we had already provided to the students. This caused 
some real frustration because faculty couldn’t use the 
same tools as their students. Staff wanted to use a terminal 
program that was tuned to the students’ computing envi- 
ronment. As network maintainers, we wanted to use the 
multiple sessions to troubleshoot network problems from 
home (instead of driving to the computer center on cold 
winter nights . . .). 

There was no off-the-shelf way to 
make the async ports of the network 
deal with AppleTalk frames. Yet we felt 
it was important to let people use Dar- 
Terminal over their RS-232 ports. One 
solution would have been to make an 
“Async DarTerminal” that ran directly 
on an async port or modem. This might 
have worked, but it would have been 
troubled by flow control (does XOFF 
mean stop sending, or is it just another 
data character?) and we would have 
had problems maintaining two versions 
of the program. Furthermore, it would 
only have solved the specific problem of 
DarTerminal; other AppleTalk applica- 
tions such as printing and file sharing 
wouldn't have been able to exploit that 
solution. 

Instead, we chose to send AppleTalk 
frames over an async link. To distin- 
guish it from Apple’s standard link ac- 
cess protocol, we named it Async Apple- 
Talk Link Access Protocol (AALAP). 
AALAP frames contain all the informa- 
tion conveyed in the 230.4-kbps frames. 
Furthermore, AALAP provides exactly 
the same software interface to the high- 
er AppleTalk layers (DDP, NBP, and so 
on) in the Macintosh. In this manner, the 
layers above AALAP are “fooled” into 
thinking there is a 230.4-kbps link in 
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Every day, PC software developers confront the problem 
of software piracy. Unfortunately, protection methods block 
even legitimate backup copying, and legally induced fear 
doesn't seem to stop would-be pirates. Either way, you — 
the publisher — lose. 

But now you can stop software pirates from using your 
products without paying — with the DS1207 TimeKey™ 
from Dallas Semiconductor. 

LOCK IT OR LOSE IT 

A TimeKey contains missing but critical informa- 
tion necessary to make an applications software 
program work. Plugged into an IBM PC/XT/AT/PS2 
printer port as part of a Dallas Semiconductor DS1255 
KeyRing, the TimeKey unlocks the software. Users can 
still copy software for legitimate needs, but can’t copy 
the TimeKey or its contents. Since programs won't run 








without the DS1207, unauthorized users are thwarted. 
SUBSCRIPTION SOFTWARE 

The DS1207 also allows publishers to set an expiration 
date on software, making it unusable after a prescribed 
time. This lets you offer potential customers a try-before- 
you-buy option, as well as leasing for customers who find 
lump-sum payments difficult for premium-priced software. 
QUICK-INSTALLATION RECIPE 

A “cookbook,” the Dallas Semiconductor DS1255K 
Software authorization kit, brings you quickly up to 
speed on the TimeKey so you can put it to use 

immediately. 

So stop being afraid of software pirates. Give 
yourself peace of mind and a revenue stream for 
the future with the DS1207 TimeKey from Dallas 
Semiconductor. 


DALLAS 


SEMICONDUCTOR 


4350 BELTWOOD * DALLAS, TEXAS 75244 * 214-450-0400 


DISRIBUTORS: AVED, ADVENT, ALMAC, FUTURE, BELL, HALL-MARK, INDUSTRIAL COMPONENTS, INSIGHT, MILGRAY, QUALITY COMPONENTS, SRA, WESTERN MICRO, WYLE 
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place. 


Installing the Async AppleTalk Driver 
Conventionally, a Macintosh application needing Apple- 
Talk services checks to see if the AppleTalk driver is in- 
stalled, and if it is, opens it. This offers us two options for 
installing Async AppleTalk on a disk: providing a way to 
open Async AppleTalk before an application checks to see 
if AppleTalk is open or replacing the standard AppleTalk 
driver so that an application will open ours instead. The 
simpler method is to replace the standard AppleTalk driv- 
er with our driver (in the system file). Then, when an ap- 
plication opens AppleTalk, Async AppleTalk comes up. 

There are a few problems with using this scheme, how- 
ever. Ordinary AppleTalk networks are permanently 
wired, whereas Async AppleTalk connections are usual- 
ly temporary, over hard-wired or dial-up lines. The user 
may need to connect some cables, turn on a modem, or 
dial a phone to initiate a connection. In addition, Async 
AppleTalk must provide a way to reestablish a connec- 
tion if a line is disconnected and to hang up the phone 
when finished. Finally, we wanted users to be able to use 
the same disk with standard AppleTalk and Async Apple- 
Talk, and it isn't possible to have two AppleTalk drivers in 
the same system file. 

Instead, we chose to write an Async AppleTalk installer 
as a desk accessory. Desk accessories are simple to write, 
and they can also run concurrently with applications. 
This lets users start up Async AppleTalk within Mac- 
Write—for example, to access a LaserWriter—rather 
than having to remember to start it beforehand or forcing 
users to quit MacWrite, start up Async AppleTalk, and 
then reenter MacWrite. 


The User Interface 

A user runs the Async AppleTalk installer by selecting it 
from the Apple menu. The installer presents a window 
(see Figure 3, below) containing several controls and a 
status message display. First is a set of speeds, from 1,200 
to 19,200 bits per second. To the right of this are four 


Async Appl eTalk ine = 


Speed: - 
©1200 
©2400 


O 4800 (Hangup) 


© 9600 ee 
© 19200 


Async AppleTalk Installed eS oS 


C auto-pial: [196436300 


Figure 3: The Async AppleTalk installer window 
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buttons that the user can click: Start, which loads and 
initializes Async AppleTalk (and can even dial the phone 
if necessary); Cancel, which terminates the desk accesso- 
ry without doing anything; Hangup, which disconnects 
the phone and closes any AppleTalk driver; and Help, 
which describes what the installer is and how to use it. 

Below those controls is a status area that displays the 
state of AppleTalk (installed, not installed, and so on) or 
messages from the installer. At the bottom of the window 
are controls for the auto-dialer. If the Auto-Dial check box 
is checked, the installer runs a program to dial the phone, 
using the phone number in the box, before making a con- 
nection. The user can enter a phone number before click- 
ing the Start button. 

A user starts up Async AppleTalk by selecting the install- 
er from the Apple menu. When the dialog window ap- 
pears, the user chooses a speed, checks Auto-Dial and en- 
ters a phone number if desired, and clicks the Start button. 
The installer then loads and opens the Async AppleTalk 
driver, dials the phone if requested, and negotiates for a 
network address. If all is well, the installer displays the 
message ‘“‘Async AppleTalk Installed,” saves the speed and 
phone settings, and terminates. If errors occur in loading 
the driver, the desk accessory displays a message and al- 
lows the user to correct the problem and try again. Com- 
mon problems are loose cables, a modem that is turned off, 
an incorrect telephone number, or the other end is down. 
The user can exit from the desk accessory by clicking the 
Cancel button if the problem can’t be corrected. 

Because the installer desk accessory (DA) saves the set- 
tings of successful connections, the user usually only 
needs to select the desk accessory and click the Start but- 
ton to start Async AppleTalk. 


Explanation of the Code 

On the Macintosh, AppleTalk is implemented as a set of 
drivers. A driver is a group of routines that isolates an 
application from an I/O device by presenting a standard 
software interface. Because drivers aren't directly linked 
to an application, an alternative driver can easily be load- 
ed in place of the standard code. 

Each of the AppleTalk protocols is implemented as a 
group of subroutines (for ATP, NBP, DDP, and LAP). When 
an AppleTalk application requests an AppleTalk service, 
such as an ATP transaction, the ATP code prepares one or 
more messages. For each message to be sent, the ATP calls 
a routine (let’s call it DDPWrite) to prepare a datagram. 
The DDPWrite routine finally calls a routine (LAPWrite) 
that actually sends the message out on the wire. Now the 
Async AppleTalk code comes into play. We took the 
source for standard AppleTalk and rewrote the LAPWrite 
routine to send the characters out on an async link in- 
stead of at 230.4 kbps. This produced a driver that was 
completely transparent to application programs. Our ter- 
minal emulation program, file sharing, printing, and 
other network services all operate unchanged over 
Async AppleTalk. 


AALAP Environment 

A low-memory variable (AbusVars) at address $2D8 points 
to the local variables that Async AppleTalk needs. By con- 
vention, the AppleTalk code places this value in register 
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A2 so that variables are at offsets from A2. 

The Macintosh uses the (Zilog or AMD) 8530 Serial Com- 
munications Controller (SCC). This chip is capable of both 
async or synchronous transmission. Other serial chips 
(8250, 1602, and so on) also have the functions required for 
Async AppleTalk. 

There are five important sections to the listings: send- 
ing a frame (LAPWrite and the transmit interrupt han- 
dler), receiving a frame (the receive interrupt handler), 
the CRC algorithm in 68000 assembly language and Pas- 
cal, the port A polling procedure, and miscellaneous sup- 
port routines. (Listing One begins on page 60.) 


Sending a Frame 

Each time a frame is to be sent, the driver calls the LAP- 
Write routine to set up certain variables and send the first 
character of the frame. After that, the transmission is 
interrupt-driven—each time a character has been com- 
pletely transmitted, the SCC interrupts the CPU. The in- 
terrupt handler sends another character and returns to 
the application. 

LAPWrite is complicated by the fact that it must send 
frames ‘‘asynchronously’’—this allows the initiator of the 
frame to continue without waiting for a long I/O opera- 
tion, which is important because many seconds may 
elapse between the start and end of a frame. The device 
manager is responsible for queuing operations for driv- 
ers. It doles out tasks (say, to transmit a frame) one at a 
time. If an operation can be completed immediately, or if 
an error is detected, control returns immediately to the 
device manager. 

When an asynchronous operation, such as transmitting 
a frame, cannot be completed immediately, control re- 
turns to the code that originally called the device manag- 
er. When the operation completes, the driver returns 
control to the device manager, which may initiate anoth- 
er operation. For more information about this scheme, 
refer to Inside Macintosh, Volume II. 

LAPWrite uses a description of the frame called a write 
data structure (WDS). The WDS contains one or more seg- 
ments of data to send as a single frame. Its format is a 
series of length-pointer pairs that describe each segment 
to be sent (see Figure 4, below). The length is a (16-bit) 





Figure 4: Write data structure (WDS) 
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word, and the pointer is a (32-bit) pointer to the first char- 
acter of the segment. Several length-pointer pairs can be 
concatenated in the WDS, with the final segment being 
followed by a word of 0. 

Before sending a frame, LAPWrite first validates the 
frame by checking that the length is less than 600 data 
bytes. 

Next, LAPWrite checks tc see if there is currently a 
frame being transmitted. If so, it checks that it is an IM or 
UR frame (it returns an error otherwise), saves the WDS of 
the new frame in gWDSptr (the “queued WDS”), and re- 
turns (see accompanying article on page 25). If a frame is 
not being transmitted, LAPWrite updates the PollProc 
pointer (described later). 

Finally, it ensures that the link is still up by checking 
that a valid frame has been received within 30 seconds. If 
not, LAPWrite sends an IM frame. A good response (a UR 
frame) updates the last-valid-frame timer, and the frame 
is sent as normal. The lack of a response after 10 seconds 
results in an alert to the user, who can use the desk acces- 
sory to restart the link. 

Assuming the link is up, LAPWrite calls SendWDSptr, 
which saves a pointer to the current WDS in a variable 
tWDSPir and then initializes several variables (EscOut, 
nCRC, nFrmChr) that will be used during the frame trans- 
mission. SendWDSptr also points the LAPFetch pointer at 
the first byte to send and sets TxCount to the length of the 
first segment. Finally, it sends the first character of the 
frame ($A5, the framing character) to the SCC. The trans- 
mit interrupt handler sends the remainder of the frame. 

The transmit interrupt handler (TIntHnd) is an inter- 
rupt routine that is called each time the SCC finishes 
transmitting a character. This routine sends the next 
character (by calling TxNextCh) and cleans up before re- 
turning from the interrupt. If no character was actually 
sent (the previous character was the last one of the 
frame), then the transmit pending bit is reset so that no 
more interrupts will arrive. In any case, TIntHnd resets 
the highest interrupt under service (IUS) so that other in- 
terrupts can come in. 

TxNextCh picks the next character of the frame to send, 
advances LAPFetch (the pointer to the next character to 
send), and decrements the segment length counter 
(TxCount). It also accumulates the CRC for the frame (by 
calling NextCRC). If escaping is necessary, TxNextCh sets 
the EscOut variable to true, leaves LAPFetch pointing at 
the character to be escaped, and sends a DLE ($10). If the 
EscOut flag is set, it exclusive-ORs the 
data character (at LAPFetch) with $40, in- 
crements LAPFetch, clears the EscOut 
flag, and sends the character. Notice that 
escaping always follows CRC accumula- 
tion on the transmit side. We will see 
that unescaping is done before CRC 
computations on the receive side. 

There are several special cases for Tx- 
NextCh. When the last character of a 
segment of a WDS has been sent (Tx- 
Count = 0), it moves to the next length- 
pointer pair, updates LAPFetch and Tx- 
Count, and continues sending. After all 
the segments of a frame have been sent, 
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The Async AppleTalk Link Access Protocol 


This section describes the important features of AALAP. 
The full protocol definition, the Asynchronous Apple- 
Talk Link Access Protocol, Version 1.0, is included on the 
Async AppleTalk distribution disk. 


e AALAP transmits frames of arbitrary 8-bit data to anoth- 
er node across an RS-232 link. It uses 8-bit, no parity trans- 
mission with one stop bit. AALAP sends data bytes whose 
value is the same as certain special characters (that is, 
flow control characters) by escaping those characters; it 


sends a DLE ($10) and then the desired data character 


exclusive-ORed with $40. Thus the data byte $13 (XOFF) 
becomes the two-character sequence $10 $53 ; to send a 
data byte of $10 (DLE), AALAP sends the sequence $10 $50. 
The receiver always exclusive-ORs the character after a 
DLE with $40 to recover the correct data byte. The charac- 
ters treated specially are $10, $11, $13, $91, $93, and $A5. 

e AALAP marks the beginning and end of each frame 


is unlikely to occur in most data streams and therefore 


will not have to be escaped often. Placing this character at 


the start and end of each frame allows easy resynchroni- 
zation if one framing character has been garbled; the re- 
ceiver simply waits for two adjacent framing characters, 
which indicate the start of another frame. Figure 5, 
below, shows the format of an AALAP frame. 


e AALAP detects transmission errors using a cyclic redun- 


dancy check (CRC). AALAP computes the CRC (a 16-bit 
value that depends on all the bits of every character in the 
frame) and sends this value at the end of the frame. The 
receiver also computes the CRC on its received data and 
compares its computed value with the value it received. If 
the two values are different, an error occurred, and the 
receiver discards the frame. If the values are the same, 
then the frame is presumed to have been received cor- 
rectly. 

¢ AALAP links are full-duplex, point-to-point channels, so 
there is no contention for the link; stand- 
ard ALAP has to arbitrate access to the bus 
to prevent two station’s messages from 
colliding. 

e AALAP negotiates the network and 
/ node number with the device at the other 
end of the link at start-up time. The Ap- 
pleTalk address for a particular device 
consists of a (16-bit) network number and 
a (8-bit) node number (for the device 
itself). 

e AALAP uses XON/XOFF flow control. 
This was a requirement for dealing with 
host computers that cannot accept large 
blocks of data at high speed. If AALAP re- 
ceives an XOFF, it stops sending. It re- 
sumes output after receiving an XON. 
Similarly, AALAP may send an XOFF if it 


LAP type 
Data bytes 
CRC 





have arrived. Some host computers cond flow ‘control 
characters of either parity (XOFF may be $13 or r 8S9 | as 
flow control; AALAP must honor either. | _ 
e AALAP must detect and recover from link fails (such : 
as loss of carrier). There are actually two problems: re- 
establishing the link and regaining the previous network 
address. On the Macintosh, a desk accessory (DA) accom- 
plishes both. The DA will dial a selected telephone num-- 
ber, if necessary, and establish the link. If the link fails / 





| during a session, the user gets an alert and ¢ can 1 then u use 


the DA to restart the link. . 
¢ To start the link, the Async AppleTalk installer a a : 
link (by dialing the phone number and so on) and then - 
gives a command to the AALAP driver to obtain a net- 
work and node number (NNN). This is a two-step process. 
Each end sends an IM (for “I aM”’) LAP frame that contains 


| its suggested network address; the other end responds 
| with a UR (for “yoU aRe’’) frame that either confirms that 
with a special “framing” character. This framing charac- | : 
ter never occurs in the middle of a frame; if AALAP needs | 
to send it, it will be escaped. $A5is a good choice because it - 


address or makes a different suggestion (see Fig ire 6, 
below). The default values for network and node num-— 
bers are $0000 and $00, pespecuyely. When zero values: 





(possibly random) values i ina UR response. If the peciuion 
of a UR can accommodate the suggested value(s), it switch- 
es to use those numbers. When each end has sent an IM 
and received a UR with the same address, se declare 
the link to be up. 


_ ¢ Notice that this scheme allows « a node to regain its previ- 


ous network address after being disconnected. When re- 
starting, the node suggests its previous address in the ini- 
tial IM; if the other end can accommodate that address, it 


replies with the same values in the UR. 


¢ Whenever a node wants to send a data frame, it checks 


_ to see if it has heard from the other end within the last 30 


seconds. If not, it sends an IM frame with its current ad- 
dress (to force an immediate UR response). If no response - 
returns, the link can be assumed to be down, and the user 
gets a warning. If a response arrives, then the original | 
data frame can be sent. 


Framing char — $A5 

— $02 DDP; $86 1M; $87 UR 
— arbitrary data 

—CRC-16 (see text) 





Figure &: Generic AALAP frame 





cannot process all the characters that Figure 6: IM/UR frames 
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ASYNC APPLETALK 
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TxNextCh checks nCRC to see if it needs to send the CRC. If 
so, it swaps the bytes of the CRC (so that it will be sent the 
least significant byte first) and saves them in CRCBuf, 
points LAPFetch at CRCBuf, sets TxCount to 2, and clears 
the nCRC flag. Finally, after the CRC has been sent, if the 
nFrmChr flag is set, a closing framing character will be 
sent and the nFrmChr flag cleared. After the entire frame 
has been sent, TxNextCh looks to see if a queued WDS is 
waiting to be sent. If so, it resumes transmission with the 
new frame; otherwise, it informs the device manager 
that a frame is complete. 


Receiving a Frame | 

The receive interrupt handler (RiIntHnd) processes arriv- 
ing characters. Every time a “read data available” inter- 
rupt occurs, RintHnd gets a character from the SCC, pro- 
cesses the character as described later, and checks for 
another character. When there are no more characters, 
RintHnd returns to the interrupted application. 

The normal state of RintHnd is waiting for a frame to 
begin. The variable inMsg is set false until a $A5 character 
arrives. All other input characters will be discarded. Once 
a frame has started, each arriving character is checked 
for escaping. If it is a DLE, the EsciIn flag is set and the DLE 
discarded. If a character arrives when the Escin flag is set, 
the data character is exclusive-ORed with $40 to get the 
correct value, and the Escin flag is cleared. RIntHnd then 
updates the input CRC, stores the data character in the 
input buffer, and updates the pointers (LAPStash points at 
the next free location; RcvdLen is the total length of the 
input buffer). 

When a closing framing character arrives, the inMsg 
variable is set false and the frame’s received CRC is 
checked. A nonzero value means that a transmission er- 
ror occurred, and the data is ignored. A CRC of zero im- 
plies that the frame is correct; RIntHnd remembers the 
frame's arrival time and passes control to a higher layer 
in the AppleTalk protocol for processing. 

RintHnd has several special tests. First, it discards frames 
that contain either fewer than 3 or more than 600 data 
characters (as required by the AppleTalk specification). 
RIntHnd also checks for flow control characters arriving 
from the other side and stops and resumes transmission as 
necessary. Finally, RIntHnd has some tricky code to keep 
up with arriving data while the processor is busy. 

Remember that RintHnd runs as an interrupt routine. 
No other interrupts will normally be processed until Rint- 
Hnd exits. Unfortunately, several of the higher protocol 
layers can take quite a while (3—4 msec) to process a long 
frame. At 9,600 bps, interrupts are disabled for three or 
four character times and characters are frequently over- 
run, corrupting the frame. 

To avoid dropping characters while a frame is being 
processed by a higher layer, RintHnd uses the stillBusy 
flag to indicate that the previous frame is still being pro- 
cessed. When a complete frame arrives, RIntHnd sets still- 
Busy and reenables interrupts before passing control to 
the higher layer’s code. Characters that arrive when still- 
Busy is true are placed in a buffer (BusyBuff) of 16 charac- 
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ters. Once the higher layer returns, RintHnd clears still- 
Busy and exits. 

There is one final complication in these routines—the 
Macintosh doesn’t have enough speed to service the disk 
and its two serial ports simultaneously. This means that 
incoming characters may be dropped when the disk is 
spinning. The disk driver installs a ‘“‘serial port A polling 
procedure,” or PollProc, which is invoked whenever the 
disk driver turns off interrupts for more than 100 micro- 
seconds. During disk operations, PollProc stashes charac- 
ters from port A into a special buffer for processing after 
the disk stops. 

Unfortunately, the Async AppleTalk driver (on port B) 
drops characters with this scheme. To circumvent this, 
we install a small piece of code to be executed before the 
standard PollProc runs. This code has one function: to 
send an XOFF flow control character to stop the other end 
from sending. A while later, AALAP sends an XON to re- 
sume the data (the vertical blanking task controls this). 


CRC Algorithm 

The two CRC routines shown in Listings Two and Three, 
next month, implement the same algorithm. Listing Two 
is in Pascal and is easier to follow than the actual 
assembly-language code used (in Listing Three). Each 
NextCRC routine receives the accumulated CRC (so far) 
and the next data character to accumulate. NextCRC re- 
turns the updated (16-bit) CRC. The CRC-16 algorithm has 
the special property that when the computed CRC is ap- 
pended (least significant byte first) to a string of m data 
bytes, and a CRC computed on the entire m+ 2 bytes, the 
result is exactly 0. This makes it quite easy for the receiver 
of a frame to check the CRC of a frame. 


The Polling Procedure (PollProc) 

Our PollProc gets control when the disk driver turns off 
interrupts. It first tests to see if first, it has sent an XOFF, and 
second, if we're receiving a frame. If the answers are no 
and yes, respectively, it stashes any characters from the 
SCC in BusyBuff and then sends an XOFF to the other end. 

In any case, our PollProc then restores the state and 
passes control to the real PollProc (if any). 

The AALAP PollProc only sends an XOFF when actually 
receiving a frame (when inMsg is true). This prevents a 
continuous dribble of XOFF and XON characters as the 
disk spins. 


Support Routines 

Macintosh programs can receive periodic action with a 
vertical blanking (VBL) task. Async AppleTalk uses a VBL 
task to check that the data flow hasn’t stopped without 
reason. The VBL code runs every third of a second and 
either sends an XON if the transmitter has sent an XOFF to 
stop the other side or experimentally sends the next char- 
acter (by calling TxNextCh) if no character has been sent 
for a full second. Each of these actions may reinvoke flow 
control, but they guarantee that things will become “un- 
stuck” if, say, an XON was dropped. 


PutChar sends a character synchronously—that is, it 


waits until the character can be sent. If the SCC cannot 
accept the character within one-half second, PutChar re- 
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Real programmers don't use dBASE. Or do they? 
Were finding that some very swift programmers are using it to 
write some very fast applications, 
and are completing their 
projects much more quickly. 

But they cheat. 

They use our Clipper™ 
compiler to combine dBASE™ 
with C and assembler. 

With dBASE used like 
pseudo-code, they can then quickly create 
prototypes that actually run. 

Then, with dBASE doing the high-level database functions, 
they use our Clipper compiler to link in C or assembly language 
modules from their own bag of tricks. 

And theyre finding that theyre linking in less than they 
expected because Ciipper compiled code runs so fast and 
because of Clipper's built-in enhancements. 

Clipper includes easy networking that provides file and 
record locking the way it should be done. 

Fast screens that can be treated as memory variables and 
eliminate the need for direct screen writes and all that tortuous 
heap management code. : 

Box commands that make 
windowing a breeze. And more. 

So if youd like to use your time 
more productively, check us out: 

Nantucket Corporation, 

12555 W. Jefferson Boulevard, 

Los Angeles, CA 90066. 
Or if you're on deadline, call 
(213) 390-7923 today. 
Clipper could get you out of 
& Nantucket. ime 
© Nantucket Corporation 1987, Clipper is a trademark of Nantucket Corporation; dBASE isn't. In Europe: Nantucket Corporation (Europe) 2 Bluecoats Avenue, Fore Street, Hertford, Herts SG14 1PB Telephone 0992 554621. 
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turns an error code. A character of $FFFF will send a 
break on the link. 

SetBaud changes the baud rate generator (BRG) in the 
SCC to run at the desired speed. It is careful to disable the 
BRG before changing it and restores the state of the SCC 
before returning. 

Get_NNNN does the network and node number negoti- 
ation (NNNN). It sends an IM with the current network 
address up to four times. A UR response will be processed 
asynchronously by the receive interrupt handler. If the 
address in the UR matches that of the IM, then 
Get_NNNN declares the link up. If the AALAPup variable 
is true before the fourth IM time-out, Get_NNNN returns 
a good status; otherwise, it returns a bad status to indicate 
that the link could not be started. 

DoWarn uses the return status from Get_NNNN to dis- 
play a dialog box with a warning to the user that there is 
trouble with the Async AppleTalk link. Two possibilities 
are likely: either there is no response from the other end 
or the two ends of the link cannot agree on a network 
address. DoWarn will fail if the disk that originally con- 
tained the Async AppleTalk desk accessory file is not cur- 
rently mounted. 


Who’s Using Async AppleTalk? 

At Dartmouth, more than 1,000 Macintoshes in adminis- 
trative and academic offices can use Async AppleTalk 
through the Kiewit network. We have successfully used 
many applications, including DarTerminal, printing to 
LaserWriters, and various file servers and electronic-mail 
programs, with Async AppleTalk. 

At the time of this writing (May 1987), Async AppleTalk 
is only useful on the Dartmouth network. Fortunately, 
commercial products that use Async AppleTalk should 
soon reach the market. First is the Reactor, from Sand Hill 
Engineering in Geneva, Florida ((305] 349-5960). The Reac- 
tor is a port switcher that can interconnect RS-232 ports 
internally or between several Reactors, which allows 
multiple users to share a modem, printer, or whatever, 
without switching cables. The Reactor also acts as an 
Async AppleTalk bridge, routing AALAP frames between 
the appropriate ports. 

Solana Electronics, of San Diego, California ((619] 566- 
1701), is also working on an Async AppleTalk product that 
will connect to a 230.4-kbps bus. 


Future Projects 
Although the current implementation of Async Apple- 
Talk is quite usable, several enhancements could be 
made. Perhaps the simplest would be to make an INIT 
resource that installed Async AppleTalk at system boot 
time. Each time you booted the system, the INIT mecha- 
nism of the Mac would load in the Async AppleTalk driv- 
er, dial the telephone (if necessary), and establish the link. 
Errors would be reported in alerts as they are currently. 
Another project is a ‘‘half-bridge.’’ This is most easily 
described as a stand-alone Macintosh that has Async 
AppleTalk running over the phone port (port A) and 
standard (230.4-kbps) AppleTalk running on the printer 
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port (port B). Frames that arrived on port A would be sent 
out port B, and vice versa. This is a bit tricky because not 
all frames need to be sent out the other port—the soft- 
ware in the half-bridge should forward frames only if the 
destination is out the other side. This would be useful for 
a couple of purposes: a half-bridge can join two separate 
230.4-kbps AppleTalk networks, only passing frames des- 
tined for the other side; a half-bridge also gives a dial-up 
port for someone using Async AppleTalk, say, from 
home. (This isn't as wasteful as it seems: it is quite reason- 
able to leave a Mac in the office running as a half-bridge 
after people leave. After all, many people turn the Mac 
off when they're not there.) 


Availability 

Although you may distribute it freely, Async AppleTalk is 
not in the public domain. It bears a copyright notice of the 
Trustees of Dartmouth College. We distribute it at a nomi- 
nal cost, and others may redistribute it as long as it is not 
sold for profit and as long as the copyright notice is main- 
tained. The full distribution policy is included with the 
distribution disk. If you plan to use Async AppleTalk ina 
commercial product, we ask that you send us a letter de- 
scribing your plans and your agreement to abide by our 
policy. (Historical note: this is fundamentally the same 
arrangement Columbia University uses for its Kermit 
package.) 

Dartmouth College distributes the following modules: 


¢ A desk accessory for the Macintosh. 

¢ Sources for the desk accessory and auto-dialer. 

e Sources for most, but not all, of the AALAP driver. AA- 
LAP was developed from the original AppleTalk source 
code, which we licensed from Apple under a nondisclo- 
sure agreement. Consequently, we cannot distribute the 
entire source package. We do show most of the software, 
including interrupt handlers, so that these can be ported 
to other machines. 


All source code for articles in this issue is available on a 
single disk. To order, send $14.95 to Dr. Dobb’s Journal, 
501 Galveston Dr., Redwood City, CA 94036, or call (415) 
366-3600, ext. 216. Please specify issue number and format 
(MS-DOS, Macintosh, Kaypro). 


Bibliography 

Apple Computer. Inside AppleTalk. Cupertino, Calif.: Ap- 
ple Computer, 1986. 

Apple Computer. Inside Macintosh. vols. I—IV. Reading, 
Mass.: Addison-Wesley, 1985. 


Dartmouth College. Asynchronous AppleTalk Link Access 
Protocol, Version 1.0. Hanover, N.H.: Kiewit Computation 


Center, 1986. 
Tanenbaum, Andrew S. Computer Networks. Englewood 
Cliffs, N.J.: Prentice-Hall, 1981. 


DDJ 
(Listing begins on page 60.) 


Vote for your favorite feature/article. 
Circle Reader Service No. 1. 


Dr. Dobb’s Journal, October 1987 


Clarify and document your source listing and get 
an “organization chart” of your program’s structure 


with two NEW utilities from Aldebaran Laboratories, for C, BASIC, 
Pascal, dBASE® FORTRAN and Modula-2 programmers 


“Occasionally, a utility 
comes along that makes a 
programmer’s life much 
easier. SOURCE PRINT 
is such a program. 

It contributes to the 
programmer’s job by 
organizing code into a 
legible format and by 
helping to organize the 
documentation and 
debugging process.” 


— PC Magazine 
Sept. 16, 1986 


Source Print and Tree Dia- 
grammer both have easy-to-use 
menus with point-and-shoot file 
selection, and let you search for 
_ files containing a given string. 
For IBM PC and compatibles 
with 256K. 

Join thousands of program- 
mers who are working more 
efficiently using Source Print 
and Tree Diagrammer. Order 
these indispensable tools today. 
We ship immediately, and 
there’s no risk with our 60-day 
money-back guarantee. Order 
both and save. Only $155.00. 


800-25 7-0 7 73 Dept. 58 


In California: 


800-2 9 7-9 / 74 Dept. 58 


MasterCard, VISA, American 
Express, COD. Add $5 for 
shipping/handling. 


or see your local dealer! 


Source Print and Tree Diagrammer are 
trademarks of Aldebaran Labs. dBASE is 
a trademark of Ashton Tate. Prices subject 
to change without notice. 










Source Print” 


organizes your source code, simpli- 
fies debugging, and makes documen- 
tation a snap! It lists one or more 
source files with informative page 
headings and op- 
tional line numbers, 
while offering 
invaluable features: 

The Index a 
(Cross-Reference | Fn 
list) saves you time er 
by showing exactly 
where variables are 
used and where functions, pro- 
cedures, and routines are called. 
Locations where new 
values may be assigned to 
variables are shown, making it easy to track down that 
mysterious value change. 

Structure Outlining solves the problem of hard-to- 
see nested control structures by automatically drawing 
lines around them. 

Automatic Indentation of source code and listings 
reduces your editing time and ensures indentation accuracy. 


Plus... Source Print generates a table of contents 
listing functions and procedures. Keywords can be printed 
in boldface on most printers. Multi-statement BASIC lines 
can be split for readability. Functions and procedures can 
be drawn by name from one or more source files to form a 
new file. 


Tree Diagrammer”™ 


shows your program’s overall organization at a 
glance. Ordinary program listings merely display 
functions, procedures, and subroutines sequen- 
tially, but do not display the relationships be- 
tween these routines. Our revolutionary new 
Tree Diagrammer automatically creates an 
“organization chart” of your program showing the 
hierarchy of calls to functions, procedures, and 
subroutines. Recursive calls are indicated and 
designated comments in the source code 
will appear on the chart. 

Tree Diagrammer helps you organize your 
program more logically. And you’ll be amazed at 


how easy it is to debug when you $7 7 00 


see how your routines interact. 






150 FOR INDX = 1 TO 100 
160 IF TB(INDX) = 0 THEN X = 5 

170 C = 50: WHILE K <= 1000: TB(K) = 0: K = K + X: WEND 
180 GOSUB 2000 

190 XT(C) = X: T2(C) = K: C=C +1 
200 NEXT INDX 












—FOR INDX = 1 TO 100 
160 IF TB(INDX) = 0 THEN X = 5 
Cc = 50 





WHILE K <= 1000 
TB(K) = 0 
K=>K +X 


Before 





180 GOSUB 2000 
190 XT(C) = X 
T2(C) = K 






source () See 
—NEXT INDX 





while (iar < nres && ares(iar)(0) == 
if ((d = ares({iar)({1)) == 0) 


1 
2 
3 
4 
5 
6 
7 
8 
9 


Pp = &(ares(iar)(1)); 
d = *p) 


Wed 12-31-86 07:22:03 INDEX (Cross Ref) 
all identifiers 


inrecord 4.191 9=396 19.825 19=826 
21.889 22.922 22.953 23=978 
23.990 





ins 53.2293 53=2309 53=2319 53.2325 


54.2331 54.2332 54.2336 5422346 
00 54.2354 54.2364 54.2365 54.2366 
intext 9=395 43.1796 43.1815 


4.193 
43=1820 45=1902 
Index 
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WRITE FASTER 
IN ANY LANGUAGE. 
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If you develop software symbolically 
for any product based debug in the 
onan Intel microcontroller same high-level language 
Or microprocessor, includ- you wrote in without hav- 
ing the 80386, the unique —_ ing to deal with machine 
debug hooks in the Intel or hex code:Which means 
languages will help get the 80.386 reads as 80.386, 

job done faster. not 50 62 DO C5. 

In fact,;when used with Because the location 
Intel debuggers and emu- of both code and data are 
lators, Intel development _ easily specified with our 
languages can provide locator, it is easier for you 
more debug data than any to develop ROM-based 
other high-level language. _ firmware. 


Debughooksletyou  —_ Since Intel languages 


produce identical object When you buy an Intel 
code regardless of the host, language, you have access 
you can write code at a to our customer hotline. 

PC running DOS, a VAX’/ So if you ever have a ques- 
VMS terminal, oran Intel tion you can talk pita: 
Development toa a trained . 






on 


ee SS 





members applications specialist who 
~ Ofthesame understands our products. 
design team can therefore And can give you the right 
choose the most effective | answers. Faster. 
combination of languages —_To order today, or get 
and systems to get the job more information—includ- 








done faster. ing a free catalog of our 
Intel post-sales support development tools—call 
can also help you get toll-free 1-800-87-INTEL. 
the job done faster. We in- The sooner you call, the 
vented the microprocessor. faster youll get the job done. 
We know microprocessors a ® 
and languages for Intel intel 
architectures better than 





ANYVO ne else ; © 1986 Intel Corporation 
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Forth and BASIC traditionally 

force programmers to sacrifice 
program execution speed for the 
powerful debugging facilities of an in- 
teractive programming environment. 
This article takes a look at a Forth im- 
plementation scheme that allows an 
interactive Forth system to generate 
code that executes at speeds that rival 
the execution speeds of code generat- 
ed using compiled languages. 

Mach2, created for the Macintosh 
and other 68000 environments, is a 
Forth system that has discarded the 
elaborate pointer-threading schemes 
commonly used for Forth in favor of 
a simple ‘“‘subroutine-threaded”’ ap- 
proach. In a subroutine-threaded 
Forth, the Forth compiler generates 
machine code. Both the pointer- 
threaded Forth pseudocode and the 
inner interpreter required to execute 
the pseudocode are eliminated; the 
microprocessor can directly execute 
subroutine-threaded Forth code. 

In benchmark tests performed ona 
Macintosh SE, the Sieve (Forth ver- 
sion) benchmark compiled by Mach2 
executed at 70 percent of the execu- 
tion speed of a Sieve program com- 
piled using a high-performance Mac- 
intosh C compiler. The Sieve (Forth 
version) benchmark compiled using 
a traditional pointer-threaded Forth 
system executed at 17 percent of the 
speed of the compiled C version. 


Jp rere anc languages such as 


A Short Description of Forth 
The Forth language is composed of 


Lori Chavez, Palo Alto Shipping Com- 
pany, P.O. Box 7430, Menlo Park, CA 
94026. Lori is a codeveloper of the 
Mach2 Forth Development System 
and is also a software consultant. 
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by Lori Chavez 


Saving good-bye to 


_ the inner interpreter — 





approximately 200—300 routines. In 
Forth terminology these routines are 
referred to as words, or definitions. 
The data structure used to hold the 
code for the routines, information 
about the routines, and to link all the 
routines is called the dictionary. Each 
Forth word has its own entry in the 
dictionary. 

New Forth definitions are created 
by compiling references to several 
previously compiled Forth words 
and assigning a name to those com- 
piled references. The new Forth defi- 
nition, like any other Forth word, 
can then be executed interactively by 
the Forth interpreter. Execution of 
the new definition will cause all 
words referenced by the definition 
to be executed sequentially. 

To illustrate this process, let’s de- 
fine a Forth word called SHIP that, 
when executed, will perform the 
steps required to ship a product from 
a warehouse: 


: SHIP 
GET_QUANTITY 
PREPARE_SHIPMENT 
SEND_PACKAGE 


, 


GET_QUANTITY fetches the desired 
quantity value from a variable and 
passes the value to PREPARE_SHIP- 
MENT. PREPARE_SHIPMENT places 
the desired number of items in the 


A Fast Forth 
for the 68000 


package and SEND_PACKAGE puts 
the package in the mail. 


Subroutine vs. 

Pointer Threading 

Figure 1, page 33., shows the code 
generated when SHIP is compiled in 
a subroutine-threaded system. Each 
word that SHIP references is a sub- 
routine that ends in an assembly-lan- 
guage return-to-subroutine (RTS) in- 
struction. The compiler generates a 
4-byte, PC-relative, jump-to-subrou- 
tine (JSR) reference for each of the 
three routines. Because SHIP itself 
ends with an RTS instruction, it too 
can be referenced by another word 
in the same manner. 

Figure 2, page 33, shows how the 
dictionary entry for SHIP would ap- 
pear if it were compiled in a pointer- 
threaded Forth implementation. A 
pointer-threaded Forth does not gen- 
erate directly executable machine 
code. Instead, it generates lists of ei- 
ther addresses, offsets, or tokens that 
indirectly ‘‘point’”’ to the referenced 
word. This means a Forth interpreter 
that understands this “pseudocode” 
generated by the pointer-threaded 
compiler must be used to execute the 
“code.” 


Why Pseudocode? 
Forth was originally developed in the 
days of the 8- and 16-bit processors. 
Typically, only one of the registers in 
these processors—the system stack 
pointer register—could take advan- 
tage of the fast processor stack ma- 
nipulation operators (push and pop). 
In a pointer-threaded Forth, the 
processor system stack is used as the 
data stack. Because microprocessors 
use the system stack for their subrou- 
tine calling mechanism, pointer- 
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threaded Forth implementations 
were forced to develop their own def- 
inition execution mechanism. The 
scheme devised involved a simulation 
of the microprocessor program 
counter, instruction pointer, and even 
the instruction set. For those interest- 
ed, Ronald Greene provides a listing of 
the 8088 assembly-language code re- 
quired to implement a generic inner 
interpreter in his 1984 Byte article on 
reducing overhead in threaded inter- 
pretive languages. The inner inter- 
preter is naturally slower than the mi- 
croprocessor’s subroutine calling 
mechanism and requires more regis- 
ters to implement. 

It is this simulation of the natural 
functions of the microprocessor that 
became the bottleneck in the effort to 
achieve fast Forth execution times. At 
the time, given the architecture of 
the available processors, the Forth 
implementors’ decision made sense. 
The data stack is heavily used in a 
Forth program. By using the system 
stack as the data stack, fast push and 
pop stack manipulation instructions 
could be used to optimize parameter 
passing. And, in those days of limited 
memory, the use of subroutine call 
instructions would have required 
more memory for each compiled ref- 
erence in a Forth word. 

Today, however, processors are 
much more flexible. The Motorola 
68000 microprocessor has 16 general- 
purpose registers (DO—D7 and 
A0—A7), 7 of which (AO—A7) can be 
used as stack pointer registers. This 
means that a 68000 Forth can take ad- 
vantage of the 68000’s subroutine call- 
ing mechanism, which affects the sys- 
tem stack pointer register, and still use 
another register for the parameter 
stack pointer with no speed penalty. 


Optimization Techniques 

As Figure 1 demonstrated, a subrou- 
tine-threaded Forth compiler gener- 
ates machine code. Although this 
may seem only natural to those fa- 
miliar with other language compilers 
and assemblers, it is not a common 
characteristic of Forth. This change 
from pseudocode to machine-code 
generation has had two positive ef- 
fects on the Forth language. First, as 
the previously mentioned Sieve re- 
sults testify, subroutine threading 
makes Forth code execute signifi- 
cantly faster. Second, the code and 
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speed optimization techniques tradi- 
tional compilers and assemblers have 
used for many years can finally be 
applied to Forth code. 

The rest of this article discusses 
how macro substitution—a speed im- 
provement technique commonly 
used by assemblers—and edge-mac- 
ro (peephole) optimization—a code 
optimization technique commonly 
used by traditional language compil- 
ers—can be used by a subroutine- 
threaded Forth compiler to generate 
faster and more compact code. 


Optimization for Speed 
To obtain speed improvements in an 
assembly-language program, pro- 
grammers generally avoid subrou- 
tine calls and place as much code as 
possible directly into the routine be- 
ing optimized. If this technique is 
used too often in a program, the 
source listing can become quite long 
and unreadable. Therefore, most as- 
semblers include some sort of macro 
facility that allows many instructions 
to be represented by one word. 
When the macro word is encoun- 
tered during the assembly process, 
all instructions that comprise the 
macro word will be assembled. 
“Mach” words are the Mach2 
equivalent of a traditional assem- 
bler’s macro words. In Mach2, one bit 
in the length byte of the dictionary 
header is used as the Mach bit. If this 
bit is set, the corresponding word is a 
Mach word that is treated as a macro 
by the compiler. Whenever a Mach 


SHIP 
GET_QUANTITY 
PREPARE_SHIPMENT 
SEND__PACKAGE 


SHIP 
GET_QUANTITY 
PREPARE_SHIPMENT 
SEND__PACKAGE 


. 
’ 


word is referenced in a definition, 
the compiler lays a copy of all in- 
structions from the start of the Mach 
word up to the first RTS encountered 
into the definition being compiled. 
Because the compiler in a subrou-. 
tine-threaded Forth already gener- 
ates machine code, teaching it to pro- 
duce in-line code is a simple task. 

To decide which Forth words 
should be laid in-line, the overhead 
of the subroutine call instruction 
must be weighed against the size of 
the subroutine being called. The 
68000 PC-relative JSR instruction re- 
quires 4 bytes of memory and 18 pro- 
cessor clock cycles. The 68000 RTS in- 
struction requires 2 bytes of memory 
and 16 processor clock cycles. The to- 
tal overhead for a complete subrou- 
tine call, for both the JSR and RTS in- 
structions, is therefore 6 bytes and 34 
clock cycles. For approximately 75 
percent of the words in the Forth 
kernel, the overhead of the subrou- 
tine calling mechanism is small in 
comparison to the size and time re- 
quired to execute the word itself. For 
the remaining 25 percent of the 
words, however, the overhead in- 
volved in calling the words is much 
greater than the execution time and 
memory requirements of the word 
being called. 

An ideal candidate for a Mach 
word is a word such as DUP, which is 
composed of a single 68000 instruc- 
tion (MOVE.L (A6), —(A6) ) that is both 
smaller in size than the JSR instruc- 
tion (2 bytes vs. 4 bytes) and faster in 


JSR GET_QUANTITY 
JSR PREPARE_SHIPMENT 





OFFSET TO COLON 
OFFSET TO GET_QUANTITY 
OFFSET TO PREPARE_SHIPMENT 


OFFSET TO SEND__PACKAGE 
OFFSET TO SEMICOLON 








Figure 2: Pointer - threaded code for SHIP 
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execution time than a subroutine ref- 
erence (20 processor cycles for DUP 
vs. 54 processor cycles for JSR + DUP 
+ RTS). 

In Mach2, all of the simple stack, 
arithmetic, comparison, and memo- 
ry operators and all variable and con- 
stant references have been declared 
as Mach words. Fifty percent of these 
words generate code that is smaller 
than or equal in size to the JSR in- 
struction they replace. An additional 
25 percent of the words weigh in at 6 
bytes—only 2 bytes larger than the 
JSR instruction. In each case, the re- 
placement of the JSR instruction 
with in-line code results in at least a 
50 percent speed improvement. 
When used thoughtfully and selec- 
tively, macro substition can yield a 
large increase in program execution 
speed with only a small increase in 
program size. 

One example, the definition of 
GET_QUANTITY, is shown below. 
QUANTITY is the name of a 4-byte 
variable storage area. When execut- 
ed it will return the address of its 
storage area. The @ operator (fetch) is 
used to fetch the 4-byte contents of 
the QUANTITY variable. 


-GET_QUANTITY (—n)\nmeans 
a value is returned on the stack. 
QUANTITY \ Return variable 
address 

\ Fetch 4-byte value 
from variable 


© ; 


Both the variable reference and @ 
are Mach words. By placing QUANTI- 
TY and @ directly into SHIP, you can 
eliminate the overhead of the GET 
—_QUANTITY subroutine call and ex- 


SHIP 


QUANTITY 


PREPARE_SHIPMENT 
SEND__PACKAGE 


e 
’ 





perience the benefits of macro 
substitution. 

Figure 3, below, shows the code 
generated for SHIP when the code 
for the QUANTITY variable refer- 
ence and the @ memory access are 
treated as assembly-language macros 
and laid in-line into SHIP’s code area. 
As you study Figure 3 note that 
Mach2 variables are located relative 
to the address in the A5 register and 
that the A6 register is used to main- 
tain its parameter stack. 

With macro substitution, the 4-byte 
JSR QUANTITY is replaced with the 4 
bytes of assembly-language code that 
perform the variable reference. Like- 
wise, the 4-byte JSR @ is replaced 
with the 4 bytes of assembly-lan- 
guage code that perform the memo- 
ry access. SHIP doesn’t increase in 
size but the QUANTITY @ part of 
SHIP experiences a 57 percent speed 
improvement. 


Code Optimization 

Because Forth words use a stack for 
parameter passing, it is common for 
the first instruction in a Forth word 
to pull a parameter from the stack 
(MOVE.L (A6)+,A0) and for the last 
instruction to put a parameter on the 
stack (MVOVE.L AO, —(A6) ). When two 
Forth Mach words that have these 
common beginning and ending in- 












SHIP 


QUANTITY 9a 


PREPARE_SHIPMENT 


SEND_PACKAGE 


e 
Cae 






Figure 4: Subroutine - threaded code for SHIP (with macro substitution and 


edge macro optimization) 


JSR QUANTITY 


without macro substitution 





Figure 3: Subroutine- threaded code for SHIP 
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structions are butted together, as in 
Figure 3, the result is the following 
redundant and inefficient code 
sequence: 


MOVE.L AO, —(A6) 
MOVE.L (A6)+,A0 


Fortunately, it is not hard for the 
compiler to watch for these edge 
macro conditions and eliminate un- 
necessary code if possible (see Figure 
4, below). . With the use of this edge 
macro optimization, the SHIP code 
becomes faster and more compact. 
Two instructions, 4 bytes, can be re- 
moved from the QUANTITY @ code 
and the required clock cycles then 
drop from 52 cycles to 28 cycles. 


Conclusions 
The advantages of subroutine thread- 
ing are many—for example: 


1. Speed—By removing the inner in- 
terpreter and using code and speed 
optimization techniques, subroutine- 
threaded Forth code executes three 
to four times faster than pointer- 
threaded Forth code. 

2. Sharable code—Linking to other 
languages is simpler. Because all lan- 
guages involved use only machine 


LEA XX(A5) ,A0 


_MOVE.L (AQ), —(A8) 













JSR PREPARE__SHIPMENT 





JSR SEND_PACKAGE 


EARKIAS) Ad 
MOVE.LAO,—(A6) | 


| MOVE.L (A6)+,A0 | 
- MOVE.L (AQ), —(A6) 


JSR PREPARE_SHIPMENT 
JSR SEND__PACKAGE 


with macro substitution 
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How to tell the difference 
between DESQview 2.0 and 


any other environment. 


Geeectine DESQview, 
the environment of 1—Lotus—1-2-3-SB8K-EGA 
choice, can give you the [iyi istics 
productivity and power 
you crave, without the 
loss of your old pro- 
grams and hardware. 

If you like your existing 
programs, want to use 
them together, transfer 
data between them, 
print, sort, communi- 
cate with or process- : 
in-backgroun4d, yet still TE 
have the need to keep ae 
in place your favorite 
PC(8088, 8086, 80286 
or 80386), DESQview 
is the “proven true” 
multitasking, multi- 
windowing environ- 
ment for you. Best of all, DESQview 2.0 is here now, 
with all the money saving, time saving, and productiv- 
ity features that others can only promise for the all- 
too-distant future. 

And with DESQview’s new graphics enhancements 
for Hercules, CGA, EGA, and VGA, Version 2.0 still 
offers the same award winning and pioneering fea- 
tures for programs that earned DESQvView its leader- 
ship, only now you can also run desktop publishing 
programs, CAD programs, even GEM-™ Topview-’;' and 
Microsoft Windows-™ specific programs. In some cases 


INTERNATIONAL BUSINESS MA 
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DIGITAL EQ 

i 


GREAT ATLA 


2—Ventura—Pub 


E 4 
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you'll add as little as 10-40K to your system overhead. 


Now you can have multi-tasking, multi-windowing, 
break the 640K habit too and still get an auto dialer, 
macros, menus for DOS and, for advanced users, a new 
complete application programmer's interface capabil- 
ity. No wonder that over the years, and especially in 
recent months, DESQview, and now 
DESQview 2.0 have earned extrava- 
gant praise from some of the most 
respected magazines in the industry. 

“Product of the Year” by readers 
vote in InfoWorld. 

“Best PC Environment” by popu- 


lar vote at Comdex Fall in PC Tech 
Journal’s “System Builder” Contest. | 
“__Twouldnr’t want torunan IBM 





M4-=In-a-Vision 


Bashi 





One picture is worth a thousand promises. 








or compatible 
computer without 
DESQview’—Info- 
World, Michael Miller. 
“A colossus among 
windowing environ- 
ments”... “will run 
almost anything’—PC 
Week, Marvin Bryan. 
“Windows, prom- 
ises, but DESQview 
delivers’—MICRO- 
TIMES, Birell Walsh. 
No other environ- 
ment has consistently 
pioneered features, open- 
ness, and productivity. 
See for yourself. Send in 
the coupon. The possi- 
bilities are endless with 
DESQview 2.0. 
Attention Programmers: For more information 
about Quarterdeck’s API, and future 386 program 
extensions, call us today. 


SYSTEM REQUIREMENTS 

IBM Personal Computer and 100% compatibles (with 8086, 8088, 80286 or 80386 
processors) with monochrome or color display; IBM Personal System/2 * Memory: 640K 
recommended; for DESQview itself 0-145K * Expanded Memory (Optional): expanded 
memory boards compatible with the Intel AboveBoard; enhanced expanded memory 
boards compatible with the AST RAMpage « Disk: Two diskette drives or one diskette 
drive and a hard disk * Graphics Card (Optional): Hercules, IBM Color/Graphics (CGA), 
IBM Enhanced Graphics (EGA), IBM Personal System/2 Advanced Graphics (VGA) « 
Mouse (Optional): Mouse Systems, Microsoft and compatibles * Modem for Auto-Dialer 
(Optional): Hayes or Compatible * Operating System: PC-DOS 2.0-3.3; MS-DOS2.0-3.2 « 
Software: Most PC-DOS and MS-DOS application programs; programs specific to 


TopView 1.1, GEM 1.1 and Microsoft Windows 1.03 » Media: DESQview 2.0 is available 
| Rush me DESQview 2.0! Today! 

















on either 54” or 344" floppy diskettes 
DDI 1 10/87 0 | 
No. of Copies Media 342"/54" Product Retail Price ea. 


Shipping & Handling USA $ 5.00 
$ 10.00 


Outside USA 


SalesTax(CAresidents) | 65% | $$ 


| Payment: [])Visa [JMC (JAMEX [)Check 













Amount 

Enclosed 
Credit Card: Valid Since ___/ SUN NOTA ct ah neko esl 
Card Number: | 
ret Creare ma epee 
Shipping Address | 
ech cna hd ipa ed scab arene tene 





NOTE: If you own DESQview call us for a special upgrade offer, or send in your DESQvi 
registration card. AST Special Edition users included. 


Mail to: Quarterdeck Office Systems, 150 Pico Boulevard, Santa Monica, CA 90405. 
VIleEw | 














See us at 


(=) €OMMDE/Fall '87 


November 2-6, 1987 
Las Vegas Hilton Hotel 
Las Vegas, Nevada 


Quarterdeck 
Quarterdeck Office Systems * 150 Pico Boulevard, Santa Monica, CA 90405 ¢ (213) 392-9851 


DESQview is a trademark of Quarterdeck Office Systems. AboveBoard is a trademark of Intel Corporation. Hayes is a trademark of Hayes MicroComputer Products Inc. IBM, PC, Personal System/2 and TopView are 
rps Nie of International saree Machines Corporation. Microsoft Windows and MS are registered trademarks of Microsoft Corporation. Mouse Systems is a trademark of Metagraphics/Mouse Systems. RAMpage 
is a trademark of AST Research, Inc. GEM is a trademark of Digital Research. Hercules is a trademark of Hercules. 
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code instructions, only register sav- 


If you want a : : oo ing and setup are required. 

unmatched oe 1 cic enn foe hae cage 
performance and 2  Motoinbla viele Sen aise at PC: 
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have it. The : a icicinkia- tb cbey Ae eis: 
hottest file a |] cS ge. asc ane oe 
or Tite Cars, fr Mca 
report generator \ : o | Subroutine threading has disad- 
onthe market. eo ras 


Regarding size, with the inclusion 
of a subroutine call instruction with 
each reference and the use of macro 
substitution, the code generated by a 
subroutine-threaded Forth will be 
50—100 percent larger than code gen- 
erated by a pointer-threaded Forth. 

The ease of disassembly is, happily, 
not a problem every software devel- 
oper will face. Subroutine-threaded 
code is easier to disassemble than 
pointer-threaded code. Therefore it is 
correspondingly harder to disguise 
proprietary algorithms written in a 






The c-tree file handler offers 
unmatched file accessing speed. The 
r-tree report generator makes pro- 
ducing reports a snap. Both pack- 
ages offer unmatched portabili 
Thousands of programmers are 
using these packages in over 50 sys- 
tem environments: DOS, UNIX, 
XENIX, OS/2, MACINTOSH, VAX, 
TOWER and ........ YOURS. 


More for your money « complete 
C-source code e single and multiuser 


capability e no royalties e unlimited , subroutine-threaded Forth. 

free technical support e port to all 

machines........ for one price. Bibliography 

c-tree features e fixed and variable “™ . Greene, Ronald. ‘Faster Forth: Re- 


ducing Overhead in Threaded Inter- 
pretive Languages.” Byte (June 1984): 
127. 

Loeliger, R. G. Threaded Interpretive 
Languages. Peterborough, N.H.: Byte 
Books, 1981. 


length data records e record locking 
e variable length keys and key 
compression e overcomes OS file 
SEM in Ct Nec cae etic and more. 


r-tree features e no printer spacing 
charts e change reports without 
recoding e unlimited control breaks, 
accumulators and virtual field calcu- 
lations e powerful search, select 
and sort capabilities over multiple 
files ..... saves days of coding. 


DDJ 


Vote for your favorite feature/article. 
Circle Reader Service No. 2. 


FairCom’s unmatched products will 
work for you. Order c-tree today for 
$395, r-tree for $295. When ordered 
together, r-tree is only $255. For 
VISA, MasterCard and C.O.D. orders 
call (314) 445-6833. For c-tree 
benchmark comparisons, write us at 
4006 West Broadway, Columbia, 
MO 65203. 
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“How to protect your software 
by letting people copy it?’ 


By Dick Erett, President of Software Security 





Inventor and 
entrepreneur, 
Dick Erett, 
explains his 
’ company’s 





protection of intellectual 


property. 
A even sophisticated 
software develop- 

ment companies and the 

trade press seem to be miss- 

ing or ignoring is this: 
Software protection must 
be understood to be a 
distinctively different 
concept from that com- 
monly referred to as 
copy protection. 


Fundamentally, software 
protection involves devising 
a method that prevents 
unauthorized use of a 
program, without restricting 
a legitimate user from 
making any number of 
additional copies or prevent- 
ing program operation via 
hard disk or LANs. 

Logic dictates that mag- 
netic media can no more 
protect itself from misuse 
than a padlock can lock itself. 

Software protection must 
reside outside the actual 
storage media. The technique 
can then be made as tamper 
proof as deemed necessary. 
If one is clever enough, 
patent law can be brought 
to bear on the method. 

Software protection is at 
a crossroads and the choices 
are clear. You can give 
product away to a segment 


crucial point that 






Hard Disk Installation : Simply copy program disk 
to hard disk using DOS Command - Copy Az*.* C: 





the program diskette as you wish. 





Data Back-ups : Use normal back-up and restore 
commands, including backing up sub-directories containing 


program files. 
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rogram Back-ups : You may make as many copies of 





a Networks : This product may be 

ks. Follow the same installation 

ns page 102 of this manual. The Block 
with the normal operation of any 
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Soon all software installation procedures will be as straightforward as this. 
The only difference will be whether you include the option to steal your 


product or not. 


of the market, or take a 
stand against the theft of 
your intellectual property. 


‘... giving your software 
away is fine...”’ 


We strongly believe that 
giving your software away 
is fine, if you make the 
decision to do so. However, 
if the public’s sense of ethics 
is determining company 
policy, then you are no 
longer in control. 


We have patented a device 
that protects your software 
while allowing unlimited 
archival copies and unin- 
hibited use of hard disks and 
LANs. The name of this 
product is The BLOCK™ 

The BLOCK is the only 
patented method we know 
of to protect your investment. 
It answers all the complaints 
of reasonable people con- 
cerning software protection. 


In reality, the only people 
who could object are those 
who would like the option 
of stealing your company’s 
product. 


‘...eliminating the ratio- 
nale for copy-busting...”’ 


Since The BLOCK allows 
a user to make unlimited 
archival copies the rationale 
for copy-busting programs 
is eliminated. 

The BLOCK is fully pro- 
tected by federal patent law 
rather than the less effective 
copyright statutes. The law 
clearly prohibits the produc- 
tion of work-alike devices 
to replace The BLOCK. 


The BLOCK attaches to 
any communications port of 
virtually any microcomputer. 
It comes with a unique 
customer product number 
programmed into the circuit. 

The BLOCK is transpar-. 
ent to any device attached to 
the port. Once it is in place 
users are essentially unaware 
of its presence. The BLOCK 
may be daisy-chained to 
provide security for more 
than one software package. 

Each software developer 
devises their own procedure 
for accessing The BLOCK 
to confirm a legitimate user. 
If it is not present, then the 
program can take appro- 
priate action. 


‘*.. possibilities... 
limited only by your 
imagination...” 


The elegance of The 
BLOCK lies in its simplicity. 
Once you understand the 
principle of The BLOCK, 
hundreds of possibilities will 
manifest themselves, limited 
only by your imagination. 

Your efforts, investments 
and intellectual property 
belong to you, and you have 
an obligation to protect 
them. Let us help you safe- 
guard what’s rightfully yours. 
Call today for our brochure, 
or a demo unit.” 


O are 
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870 High Ridge Road Stamford, Connecticut 


06905 


203 329 8870 


CIRCLE 170 ON READER SERVICE CARD 





oes 


iy 
Cy) 


Poo 2 


te 
a 
oh 
Be) 
By 


a 


ran 
oak 


Be 
ch 


Ae noEM. 


Take a look at the specs on VISTA™, a good look. 


Notice the processing, programming, and video 
Capabilities? Now think real hard about what you could 


do with the power of VISTA and a microcomputer. Incor- 
porate it with your system to create a digital pre-press 
proofing station for publishing. Design a graphics work- 
station which outputs both colorful hi-resolution slides 
and broadcast-quality animated images. Construct a 
CAD system which merges computer generated images 
with real-life backdrops for architecture, packaging or 
other industries. And, after you’ve brainstormed your 
way to new horizons of videographics possibilities, get 


your own VISTA and start working. 
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Let’s Get Specific. 


We knew you couldn't resist seeing the 
facts, and frankly, our engineers 
wouldn't have it any other way. Here is 
an overview of VISTAS key features. 


FEATURES: 


¢ 4Mbytes of Video RAM on-board 

¢ Texas Instruments’ TMS 34010 GSP 

¢ Flexible, programmable resolutions 

¢ NTSC and PAL compatible 

¢ Four 8-bit channels for real-time 
capture 

¢ Fully integrated genlock 

¢ Processor memory expandable in 
2Mbyte increments to 12Mbytes 

¢ Four 2K x 8-bit CMOS static RAM 
LUTs , 

¢ Display can be color-mapped, RGB, 
or a versatile combination of both 

¢ Interlaced and non-interlaced display 

¢ Binary and fractional programmable 
zoom Capability, creates horizontal 
and vertical magnify or minify 

¢ Smooth horizontal and vertical pro- 
grammable panning, includes wrap- 
around and split screen 

¢ Suggested Retail Price: $5995. 


Host Type: IBM PC AT and 100% Compati- 
bles, Compaq 386, 
Apollo DN 3000-single-slot board 
Data Bus: 16-bit or 8-bit (self-configuring) 
Bus Clock: 6MHz to 12MHz 
Power 
Consumption: 15 Watts 
: — 
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——=n 
aon 
Sasa 
EES 
I” 
Afsl | TRUEVISION’ 


ADDRESSABLE RESOLUTIONS: 


32 bits/pixel 16 bits/pixel 8 bits/pixel 
1024x1024 2048x1024 4096x1024 
512x2048 1024x2048 2048x2048 
256x4096 512x4096 1024x4096 
CAPTURE RESOLUTIONS:* 
NTSC PAL 
(RS-170A) (CCIR-624) 
756x486 738x576 
604x486 590x576 
504x486 492x576 
432x486 422x576 


“Resolutions are programmable; these are nominal ones 
for interlaced NTSC and PAL compatible. 


DISPLAY RESOLUTIONS:* 


Non- 

NTSC PAL Interlaced Interlaced 
(RS-170A) (CCIR-624) 

1512x486 1476x576 1024x768 768x576 

1008x486 984x576 (60 Hz) (50 Hz) 
756x486 738x576 

604x486 590x576 768x768 756x486 

504x486 492x576 (80 Hz) (60 Hz) 


*Resolutions are programmable; these are nominal ones. 


COMPUTER REQUIREMENTS: 
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IBM i is a registered trademark of international Business Machines Corp. International Sages contact Techexport at 617/890-6507 (USA), or 
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It’s So Flexible, 
We’ve Added Support. 


With its Texas Instruments TMS 34010 
graphics processor, large quantity of 
video memory, and proprietary video 
cross-point, VISTA can be programmed 
for an array of powerful market-specific 
videographic applications. To help you 
maximize VISTA’s potential, Truevision 
offers a range of C-language program- 
ming tools for developers. And when 
your system is market-ready, we'll sup- 
port your marketing efforts with our 
TRUEVISION SOFTWARE CATALOG, 
TRUEVISION NEWS, and THE PULSE. 


We're For Higher 


Resolution... Power...Flexibility... 
Quality. Join the many key manufac- 
turers and developers already working 
with the state of the videographics art, 
VISTA. Call us at 800/858-TRUE for 
more information on the VISTA 
Developer's Program. We're ready to 
take your application today. 


AT&T 
Electronic Photography and imeons 
Center 

7351 Shadeland Station, Suite 100 
Indianapolis, IN46256 
800/858-TRUE t= 
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an the Forth-83 Standard dia- 
lect be used to write substan- 
tial programs? The answer isa 
qualified ‘‘yes.’’ The qualification is 
that the program must be preceded 
by a software “prelude.” The pur- 
pose of this prelude is to provide the 
program with those facilities that 
cannot be found within the Standard. 
The good news is that the prelude 
can be surprisingly short. 

Two years ago, I began editing pro- 
grams for the Forth Model Library, 
which is sold by the Forth Interest 
Group (FIG). The programs had been 
submitted by different authors and 
were written in various implementa- 
tions of the Forth-83 Standard dialect. 
Each program consisted of 70 to 120 
screens of source code. My task was to 
convert these programs to forms that 
would run equally well under several 
available Forth-83 implementations. 

I found that a program written in 
one Forth-83 implementation would 
not run correctly under another. The 
reason for this was simple. The au- 
thors needed software tools that 
could not be provided by the Stand- 
ard but that were instead provided 
by the implementation. The solution 
to the problem was also simple. I 
wrote a software prelude, one for 
each implementation, that provided 
the missing functions. The user of a 
particular Forth-83 package then 
simply loaded these screens before 
loading the program. 

When I say “‘could not be provided 
by the Standard,’ I do not mean 
words that do not happen to appear 
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A Forth 
Standard Prelude 


by Martin Tracy 


Forth recurses faster 
and more naturally 
than any other 
popular language. 


in the Standard but that can be writ- 
ten using Standard words. Take, for 
example, the words NIP and TUCK, 
which can be found in the Laxen/ 
Perry F83 implementation: 





~NIP (n-n2 — n2) SWAP DROP ; 
“PUCK n ong -— ae on) -SWAP 
OVER ; 


As you can see, these words can be 
defined using the Forth-83 Standard 
words SWAP DROP and OVER. Thus, 
although NIP and TUCK are not men- 
tioned in the Standard, they can be 
written with Standard words and 
used in Standard programs. It is up to 
the author (or the hapless editor) to 
make sure these words are defined 
before use. 


Recursion 

Consider, on the other hand, recur- 
sive definitions. The Forth-83 Stand- 
ard does not mention recursion in its 
Required Word Set, although it de- 
fines RECURSE in the Controlled Ref- 
erence Word Set: 


RECURSE 


-- C,1,83 

-- (compiling) 
“Compile the compilation address of 
the definition being compiled to 
cause the definition to later be exe- 
cuted recursively.”’ 


Controlled reference words are 
word definitions that “although not 
required, cannot be present with a 
non-standard definition in the vocab- 
ulary FORTH of a Standard System.’ 

You would know what RECURSE 
meant if you saw it in a Standard pro- 
gram. This does not mean, however, 
that programs using recursion must 
do so with RECURSE. Some imple- 
mentations prefer the word MYSELF. 
Others, like Laxen/Perry F83, pro- 
vide a different mechanism entirely: 
words whose definitions begin with 
the command RECURSIVE can refer 
to themselves. 

In other words, the Standard says 
“a word by this name has this func- 
tion and syntax’”’ rather than “this 
function is performed by a word of 
this name and syntax.” The confu- 
sion of form and function is apparent 
in other places as well. Consider the 
definition of >NAME in the “Experi- 
mental Proposal: Definition Field Ad- 
dress Conversion Operators ’’: 


>NAME addr1 -- addr2 "to-name” 
“addr2 is the name field address cor- 
responding to the compilation ad- 
dress addr1.”’ 


The form or syntax of this word is the 
same as its function: to take you from 
the compilation address to the name 
field address. Because you don't 
know the structure of the name field, 
however, you can’t do anything with 
it. The underlying function you real- 
ly want is to display the name of a 
word, given its compilation address. 
Is recursion important? You bet. 
Forth recurses faster and more natu- 
rally than any other popular high-lev- 
el programming language, including 
C and LISP. Why? First of all, because 
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Forth words keep the majority of 
their arguments on the stack, which is 
a naturally recursive structure. Sec- 
ond, because Forth generally does not 
use local variables and so has no stack 
frame or other lexical structure to 
build each time it recurses. 

A popular belief, even among 
Forth programmers, is that recursion 
should be avoided because the return 
stack is small. The Standard guaran- 
tees a return stack of only 48 bytes. 
But this only means that “‘tail-recur- 
sive’ problems, such as those that vis- 
it each item on a list, should be unrav- 
elled into iterative structures, such as 
a DO loop. (Modern LISP compilers do 
this automatically.) There is an equal- 
ly rich set of ‘““head-recursive” prob- 
lems, however, that recurse only to 
the depth of the problem and not to 
its breadth. These are problems such 
as shape-filling algorithms, tree tra- 
versal, and natural language parsing, 
which seldom recurse any deeper 
than eight or nine levels. 

Fortunately, RECURSE can be de- 
fined easily even in implementations 
that do not include it. For example: 

: RECURSE [COMPILE] MYSELF ; 
IMMEDIATE 


This definition is likely to be a “one- 
liner” even in implementations that 
support some other recursion mech- 
anism entirely. Why? Because the 
concept of recursion is simple and 
natural to the Forth language. Sim- 
plicity and harmony are the guide- 
lines for selecting words for the 
Standard prelude. 


Compiler Words 
The Forth-83 Standard provides a set 
of words to support the compiler, 
such as [COMPILE] and IMMEDIATE. 
These words can also be used to ex- 
tend the compiler. They are, in fact, 
the building blocks for new compiler 
words. Compiler words are used in 
Forth to build flow-of-control struc- 
tures and to “hide and provide” in- 
line data in colon definitions. The ex- 
tensible compiler is one of the true 
strengths of the Forth language. 
Compiler words generally have 
two functions: they must compile 
both a run-time operator and the in- 
line data upon which it operates. The 
run-time operator also has two func- 
tions: it must operate meaningfully 
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on the in-line data, and it must adjust 
the Forth instruction pointer (which I 
will call J) to skip over this data. 

Unfortunately, the Standard does 
not provide for the creation of new 
run-time words. A run-time word 
has no Standard way of finding or 
skipping over the following in-line 
data. Consider how the word LITER- 
AL might be defined: 


: lit( — n)R> DUP @ SWAP 2+ >R: 
: LITERAL COMPILE lit, ; 
IMMEDIATE 


LITERAL compiles the run-time 
word lit, followed by the number on 
the stack. Because lit is a colon defini- 
tion, you might expect R> to move 
lit’s return address to the data stack. 
Furthermore, the return address of 
lit should be the address of the in-line 
data that follows, right? Actually, this 
definition of Jit will work correctly 
on a great many Forth implementa- 
tions. Not all Forths increment the in- 
struction pointer / to point to the next 
address, though. Some increment it 
only on demand, reasoning that the 
increment is wasted when it pre- 
cedes a branch. Others compromise 
and only increment it to point to the 
next byte. In these cases, R> points 
near to but not directly at the in-line 
data and must be adjusted. The ad- 
justment can be hidden in the way 


shown in Example 1, below. Experi- 
ence has shown that this solves the 
problem in almost all cases. [> (/- 
from) and >I (to-J) have even been 
written for a Forth with a 16-bit data 
stack width and a 32-bit return stack 
width and have worked correctly. 


Alignment 
Now consider an often requested 
function—the in-line string compil- 
er. Usually called simply ” (double 
quote), it might be implemented in 
this way: 
:(")(— addr n) I> @COUNT 2DUP 
ee 
:” COMPILE (”) 34 WORD 
DUP C@(n)1+ >R 
COUNT HERE SWAP CMOVE R> 
ALLOT ; IMMEDIATE 
: EXAMPLE 
” EXAMPLE prints a string.” TYPE ; 


This definition of ” works, in prin- 
ciple, on strings with an odd number 
of characters. Otherwise, on a byte- 
addressed machine with even ad- 
dress or “‘cell’’ alignment, the def- 
inition fails. On some Motorola 68000 
Forth implementations, the failure 
is fatal. 

You can easily define a pair of 
words to hide address alignment, 
provided you are able to make one 
simplifying assumption: Forths that 


: I) COMPILER) > IMMEDIATE ( no off set) 
: )I COMPILE )R ; IMMEDIATE ( no off set) 


: I) R)R) 1+ SWAP )R ; IMMEDIATE ( one-byte off set) 


: )I R) SWAP 1— )R)R:; 


t 


: I) R)R) 2+ SWAP )R: 


' 


IMMEDIATE ( one-byte off set) 


IMMEDIATE ( two-byte off set) 


: )I R) SWAP 2— )R)R; IMMEDIATE ( two-byte off set) 


2 1it ( — mm) I) DUP &@ SWAP 2+ 3i - 


: LITERAL COMPILE 1it , ; IMMEDIATE 





Example 1: A way to hide the adjustment of R> 


: ALIGN ; IMMEDIATE ( no alignment) 


: REALIGN ; ( no alignment) 


: ALIGN HERE 1 AND ALLOT ; IMMEDIATE ( cell-alignment) 


: REALIGN ( a—a') DUP 1AND + ; 


( cell-alignment) 


: (") ( — addr n) I) @ COUNT 2DUP + REALIGN )I ; 


:” COMPILE (”) 34 WORDDUPCA(n)i1+)R 
COUNT HERE SWAP CMOVE R) ALLOT ALIGN ; IMMEDIATE 





Example 2: A definition of ” when the dictionary is aligned 
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THE ADA WORLD 


CHANGED : 
Nice ES 


Next Generation Ada Technology 


Third generation Ada is here today with Meridian 
AdaVantage, and it’s validated by the Department 
of Defense and their suite of 2,700 tests. Ada’s first 
generation was the proving ground technology of 
the early eighties. Then came the large validated 
compilers of the mid-eighties, which were often 
inefficient and machine specific. Now Meridian 
offers a compact efficient Ada technology that is 
highly portable from PC’s to minis to mainframes. 


COMPACT MERIDIAN Ada IMPLEMENTATION 


350,000 


Lines of 
Source 
Code 


40,000 





Meridian Other Ada Compilers 





The chart above depicts the dramatic difference 
between Meridian’s implementation and other 
comercially available Ada implementations. 
Meridian’s order of magnitude smaller code size 
results in an extremely fast compiler that will 
produce highly optimized code. 


Meridian’s Track Record 


Since 1981, we’ve been building compilers the old- 
fashioned way, through hard work and experience 
gained from our development of successful 
portable compiler products. These products are 
installed at over 1,500 sites, including almost all 
major DoD contractors as well as commercial 
software developers. 


DATED 
VA Ae 


THIS PRODUCT CONFORMS 
TO ANSI/MIL-STD-1815A AS 
DETERMINED BY THE AJPO 
UNDER ITS CURRENT 
TESTING PROCEDURES 
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Price/Performance Breakthrough 


The Meridian AdaVantage v2.0 validated Ada 
compiler costs $795 and provides a production 
quality Ada development tool. 
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NOTE: All times measured on an IBM at 5170 (8MHz) and a 4MB RAM card 
required by the Alsys system. When running without the RAM card, the 
Meridian compile and link time is 46 seconds. 


The Meridian AdaStarter incorporates all of the 
features of AdaVantage, with certain size 
limitations. AdaStarter is perfect for anyone who 


~ wants to learn how to program in Ada. The 


complete $99 cost is applicable toward the 
purchase price of the AdaVantage production 
compiler. 


The compilers all run in a standard PC 
configuration with 640K of memory, a hard disk, 
and DOS v2.1 or higher. 


To order today, or get more information, call 
1-800-221-2522 (outside California) and 
1-714-380-9800 (inside California). 





“The Meridian compiler is a very well-thought-out 
compiler. The compiler is fast and execution speed 
is more than adequate... Overall, we’d rate the 


Meridian compiler as very solid.” 
— COMPUTER LANGUAGE, DECEMBER 1986 


“The more affordable AdaVantage v1.0 is good for 
the average programmer because of its price, the 
extent of its implementation, and its relaxed 
hardware requirements... [AdaVantage v2.0] should 
be competitive with Alsys Ada, since it will be a full 


Ada at less than a third of the price of Alsys.” 
BYTE, JULY 1987 
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FORTH PRELUDE 
(continued from page 41) 


use cell alignment keep the dictio- 
nary in an aligned state at ali times. 
Even if the dictionary is only aligned 
while compiling a definition, you can 
define ” with ALIGN and REALIGN as 
shown in Example 2, page 41. 

You might argue that the word ” 
should be in the Standard prelude in- 
stead of the ALIGN and REALIGN 
pair. The trouble with ” is that it’s not 
simple enough. It leaves you with no 
way to compile a sequence of non- 
printable control characters or to 
align a CREATE... DOES> structure. 
Furthermore, there is no general 
agreement among implementors as 
to whether ” should return the one- 
argument address of a counted string 
or the two-argument address of the 
first character and its length—a form 
suitable for TYPE. By redefining ” in 
the Standard prelude, you can guar- 
antee its syntax. 


Interpreting a String 

The Forth-83 Standard describes the 
terminal input buffer in such a way 
that you might think that if you 
CMOVE a string into TIB, store its 
length into #TIB, and set BLK and 
>IN to 0, then you will force the 
Forth text interpreter to interpret the 
string. Why would you want to do 
that? Well, it is handy to be able to 
compile a word such as FIND or FOR- 
GET in a colon definition along with 
its argument. 

Unfortunately, these words are de- 
fined to read their arguments from 
the input stream. How nice if you 
could compile the input stream as 
well: 


_: ME (Initialize system, then. . .) 
” FORGET ME” EVAL ; 


I am assuming that EVAL does 
the work of moving the string 
into TIB and so on. In the same 
manner, you could use FIND to see 
if a particular word is present in 
the dictionary: 


-WELL? ” FIND ME’ EVALIF... 

You could also create words from 
within other words and reference 
words before they are defined. The 
fundamental right to treat (string) 
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data as an executable program is 


guaranteed by the Von Neumann 
architecture. 

I have borrowed the word EVAL 
from the LISP function by the same 
name. The problem with EVAL is that 
it’s not simple enough. The Standard 
already lets you set up TIB #TIB >IN 
and BLK. But it provides you with no 
way to invoke the text interpreter to 
interpret it. The function you are 
missing is INTERPRET. Like RE- 
CURSE, it is found in the Controlled 
Reference Word Set: 


INTERPRET -- M,83 

‘Begin text interpretation at the 
character indexed by the contents of 
>IN relative to the block number 
contained in BLK, continuing until 
the input stream is exhausted. If BLK 
contains zero, interpret characters 
from the text input buffer.”’ 


Given INTERPRET, you can now 
define a simple EVAL: 
>EVAL(an) DUP >R TIBSWAP 
CMOVE R@ #TIB! 
0 >IN!0 BLK! INTERPRET R> >IN 
! ° 


om 


The sequence R> >IN ! marks the 
input stream as exhausted. I have 
chosen the two-argument string 
form. With INTERPRET, you can im- 
plement either string form. 


Screen Display 
The six words RECURSE, INTER- 
PRET, I>, >I, ALIGN, and REALIGN 
supply the most often requested non- 
Standard functions. The most often 
requested extension, however, is for 
video screen control. Virtually all 
available Forth-83 implementations 
allow the programmer to control the 
appearance and cursor position of the 
video display. A smart presentation 
can mean more to a program than a 
string stack or floating-point math. 
Although video displays vary 
widely, modern displays have been 
standardized to a gratifying extent. 
You can, in fact, add a fairly good 
screen display extension to the Stand- 
ard prelude if you follow a few sim- 
plifying assumptions and rules: 


1. Assume the screen is at least 80 
characters wide and 24 lines high. 

2. Define the word PAGE to clear the 
entire screen and home the cursor to 


FULL AT&T C++ for half the price of our competitors! 


Guidelines announces its port of version 1.1 of ATELY 's C++ translator. As an 
object-oriented language, C++ includes: classes, inheritance, member functions, 


constructors and destructors, data hiding, and data abstraction. 


‘Object-oriented’ 


means that C++ code is more readable, more reliable and more reusable. And that 
means faster development, easier maintenance, and the ability to handle more 


complex projects. 


C++ is Bell Labs’ answer to Ada and Modula 2. C++ will 


more than pay for itself in saved development time on your next project. 


C++ 


from GUIDELINES for the IBM PC: $195 


Requires IBM PC/XT/AT or compatible with 640K and a hard disk. 
Note: C++ is a translator, and requires the use of Microsoft C 3.0 or later. 


Here is what you get for $195: 
The full AT&T v1.1] C++ translator. 


Libraries for stream I/O and complex math. 
"The C++ Programming Language", the 
definitive 327-page tutorial and description 
by Bjarne Stroustrup, designer of C++. 


Sample programs written in C++. 
Installation guide and documentation. 
30 day money back guarantee. 


To order: 
send check or money order to: 


GUIDELINES SOFTWARE 
P.O. Box 749 
Orinda, CA 94563 


To order with Visa or MC, 
phone (415) 254-9393. 
(CA residents add 6% tax.) 


C++ is ported to the PC by Guidelines under license from AT&T. 
Call or write for a free C++ information package. 
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A Ditterent BASIC Might 
Make All the Difference 


We'll skip the four-color gatefold. And the extravagant claims. 
Because if you’re serious about programming, you just want the straight facts: 


True Microsoft Borland 
BASIC Quick Basic Turbo Basic 
2.01 3.0 2.0 


GRAPHICS 


ARRAY HANDLING 





Matrix Algebra 


Maximum Numeric Array 
Max. Number of Array Dimensions Pi emer | 
Max. Number of Elements/Dimension 
Dynamic Redimensioning 
Matrix I/O Statements YE 
Y 
NL 


STRING/FILE HANDLING 


Maximum String Length 


Total String Space UNLIMITE 


Maximum Record Size | 16MB_ 


Max. Bytes/Binary File Read 
PRODUCTIVITY ENHANCERS 


ben 
n 


Modules 


IMITED 


Immediate Mode Pu tees BREA a 
SPECIAL FEATURES 
Stop/Continue Execution ces 


Max. Source File UNLIMITED UNLIMITED 


Workspaces cts SO 


Script Files 


pi MM 
Keystroke Macros DS: ES Gee Pee 
Max. Characters/Line oo Me | 255 phar | 
Max. Scalar Data Space | UNLIMITED | 64K 
Mouse Suppor Pe core 
80386 Version are ee ee 


Portability to: Macintosh, Translation No other 
Amiga, Atari required machines 


on \ 


Three very structured, very powerful programming packages. All 
95 \\ with fancy editors and fast compilers. Two of them are the same in 
°"_—<= other respects. And one of them, True BASIC, is quite a bit 
<= different. With syntax and features that will make you more productive. 


- 
pea 
Cer" 


64K 
63 
32K 
NO 
NO 
32K 
64K 
32K 
NA 
i 
NO 
NO 
NO 
NO 
NO 
249 char. 

64K 

NO 

NO 


IMITED 64K 
IMITED 32K 
ES NO 
Ss NO 
32K 

D 64K 

MB 32K 
32K 

YES NO 
Separately Compiled Libraries YES NO 
ES NO 
YES NO 
YES NO 
64K 

YES NO 
YES NO 
TED 64K 
YES NO 
YES NO 


<< 
ESS, 





That’s why reviewers for magazines like BYTE, PC Tech Journal and 
Computerworld keep giving True BASIC their top 
marks. And why OEMs pick True BASIC after 
they’ve evaluated all the others. See why True 
BASIC can make the difference for you. 
Call 1-800-TRBASIC today. 


True BASIC, Quick Basic and Turbo Basic are trademarks of True BASIC, Inc, Microsoft. | 322 SOUTH MAIN STREET 


and Borland, respectively. Macintosh, Amiga and Atari are trademarks of Apple Computer, 
Inc., Commodore-Amiga, Inc. and Atari Corporation. Copyright 1987 True BASIC. HANOVER, N.H. 03755 
Specifications are accurate as of August 1987. (603) 643-3882 
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the upper left-hand corner. 

3. Define the word TAB ( x y ) to posi- 
tion the cursor at the given x (charac- 
ter) and y (line) coordinates. Coordi- 
nate pair (0,0) is in the upper left- 
hand corner. 

4. Define the word MARK (an ) to 
print the given two-argument char- 
acter string in highlight or inverse 
video. 

5. Never write into or over column 
79. Never issue a carriage return 
from row 23. In other words, you do 
not face the issues of wrapping the 
line or scrolling the display. 


It turns out that these five restrictions 
are sufficient to generate some really 
nice displays. 


Cell Addressing 

The Forth-83 Standard describes only 
implementations on byte-addressed 
CPUs with a 64K address space. Fu- 
ture Forth standards are likely to con- 
sider much larger address spaces. 
There are already several 32-bit 
Forth implementations. 

A Standard Forth implementation 
assumes that there are 2 bytes per 
cell, and Standard programs are 
filled with 2+s and 2*s accordingly. 
On a byte-addressed 32-bit Motorola 
68000 implementation, however, 
there are 4 bytes per cell. On a cell- 
addressed Novix 4016 or Texas Instru- 
ments TMS32020, there may be only 1 
byte per cell. The number of bytes 
per cell is used mostly to specify how 
much dictionary memory to allocate 
or how to skip to the next cell of a 
data structure. 

It can be hidden from an applica- 
tion with CELL, CELLS, and CELL+ as 
shown in Example 3, page 45. 

Byte order within a cell is normally 
not a problem. Bytes that are written 
by byte operators should be read by 
byte operators. Be careful when you 
define byte operators that are based 
on cell operators to make them inde- 
pendent of the byte order. 


An Experimental Proposal 

The Forth community has long been 
searching for a solution to a classic 
programming problem: the string 
search. When you search for charac- 
ters in a string, you generally use a 
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DO loop. You leave the loop in one of 
two circumstances: 


1. The search is successful. You leave 
the loop immediately. 

2. The search is unsuccessful. You 
leave the loop because it is exhausted. 


The problem is that once you have 
left the loop, how do you know if the 
search was successful? 

One solution is to maintain a flag on 
the stack: 


: SEARCH .. . 0( flag ) ROT ROT 
DO DROP... (compare strings ) = 
IF... —1 LEAVE THEN 0( flag ) 
LOOP ; 


If the search is successful, the flag 
will be true. 

Leo Brodie, Wil Baden, and others 
point out that a much better ap- 
proach is to leave the loop and the 
word that contains it when the 
search is successful: 


> SEARCH ... 
DO ...(compare strings ) = 
IF ... —1 LEAP ( leave word en- 
tirely) THEN | 
LOOP 0 ; 


LEAP is Leo Brodie’s suggestion, but it 
has the usual problem: it’s not simple 
enough. 

Wil Baden’s solution looks like this: 


: SEARCH ... 
DO ...(compare strings ) = 
IF... —1 UNDO: EXIT *( leave 
word entirely) THEN 
LOOP 0 ; 


The command UNDO “undoes” the 
loop by discarding the index, limit, 
and any other loop items on the re- 
turn stack before leaving the word 
with EXIT. UNDO has the additional 
charm that it can leave a word from a 
nested loop, as in UNDO UNDO EXIT. 

UNDO could be defined as a colon 
definition in this way: 


: UNDO I> R> R> 2DROP >I ; (dis- 
card 2 items) 

: UNDO I> R> R> 2Z2DROP R> DROP 
>I; ( discard 3 items) 


Actually, UNDO is more easily de- 


fined as a CODE definition and in 
some implementations is only one 
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instruction. 


In Summary 
The Forth Standard prelude de- 
scribed in this article (see Listing One, 
page 90) has proven to be an effective 
way to write substantial programs 
that run unchanged on several dif- 
ferent implementations of the Forth- 
83 Standard. The prelude can hide 
differences in byte addressing and 
cell alignment from the application 
programmer. AS 

more experience is 

gained, it may be pos- 

sible to extend the 

prelude to hide ROM- | 
ability and other im- 

plementation depen- 

dencies. 


Availability 
All the source code 


: ; iit - CELLS - 
for articles in this is- 


? 
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2 CONSTANT CELL ( byte-addressed 16-bit cells) 
: CELLS 2* : 


( size of cell area in bytes) 


: CELL+ 2+; ( skiptothe next cell address) 


4 CONSTANT CELL ( byte-addressed 32-bit cells) 
: CELLS 4 *# : 
: CELL+ 4+: ( skiptothe next cell address) 


( size of cell area in bytes) 


1 CONSTANT CELL ( cell-addressed one-byte-per 


—~cell) 


( size of cell area in bytes) 


: CELL+ 1+ ; ( skipto the next cell address) 


sue is available on a 
single disk. To order, 
send $14.95 to Dr. 
Dobb’s Journal, 501 
Galveston Dr., Red- 
wood City, CA 94063, 


CELL ALLOT 


( addr ) DO. 


( allocateacell) 


10 CELLS ALLOT ( allocate 10 cells) 


.. CELL+ ( skip to next cell) LOOP 
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ARTICLES 








chances are you've had to deal 

with the problem of pattern 
matching. It can be a simple problem 
solved with a trivial string compari- 
son utility, or it can be so complex as 
to require the use of a lexical analyz- 
er. eP 

Most people deal with pattern 
matching every day: as part of a 
search-and-replace operation in a 
text editor, as a means of data retriev- 
al in a database application, as unique 
identifiers in program source code, 
and so on. Because the task is so com- 
mon, it’s worthwhile to examine 
ways to perform it as efficiently as 
possible. This article describes how 
state machines can be useful in solv- 
ing this type of problem. 

To demonstrate the use and fine. 
tiveness of state machines, this article 
provides the source code for a pro- 
gram called findcmd. The program 
does just what the name implies—it 
finds commands. When invoked, the 
program searches each component 
of the user’s path variable for all pro- 
grams (files) that match the supplied 
pattern arguments. The pattern 
string can contain wildcard charac- 
ters just like those the DOS command 
shell accepts. The program uses an 
-extension of the Knuth-Morris-Pratt 
(KMP) algorithm, which implements 
pattern matching using a finite state 
machine—more on this later. 


IL: you're a programmer, the 


State Machines 
A complete and formal discussion of 


Charles F. Bowman, 24 Jacques Ave., 
Staten Island, NY 10306. Charles is a 
consultant and is currently writing a 
textbook on data structures. He holds 
an M.S. degree from New York 
University. 
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Turing machines, automata theory, 
and so on is beyond the scope of this 
article. For a more detailed discus- 
sion of the topic, see the bibliogra- 
phy. 

In general, a state machine has the 
following attributes: 


¢ A finite set of states, including an ini- 
tial, or start, state and a stopping, or 
end, state. 

¢ A finite set of state transitions (a col- 
lection of moves the machine can 
make). Generally, the transitions are 
represented as a two-dimensional ar- 
ray, indexed on one axis by the cur- 
rent state number and on the other 
axis by the current input token. 

¢ A set of input symbols (alphabetical) 
on which the state transitions will oc- 
cur (for my purposes, I define this as 
the file names that will be compared 
with the pattern arguments). 

e A read head that points to the next 
available input character. 


The basic operation of a state ma- 
chine can be described as follows. 


‘Upon invocation, the machine is ini- 


tialized to the begin state. It then iter- 
atively examines the current input 
symbol and, using the set of state 
transitions, progresses or moves to 
the next state, advancing the read 
head as required. It continues this 
process until it encounters either an 
error condition or an accepting state. 


Pattern Matching Using 
Finite State Machines 


The actual transition decisions are ac- 
complished by what is effectively a 
table lookup. Both the current state 
and current input token are used to 
index into the transition table to de- 
termine the resulting action of the 
machine. The range of actions in- 
cludes stop (error), accept, and move 
(to new state). 

The stop action occurs when the 
current input token is invalid with re- 
spect to the current state. This situa- 
tion raises an error condition that usu- 
ally results in the machine halting (in 
a compiler, for example, this would 
typically be the point at which you 
would receive a message such as “‘syn- 
tax error line 16”). The accept action 
occurs only when the machine is in a 
valid halt state and has exhausted the 
input stream (the read head points to 
the end of a file). In a compiler, this 
would mean your source code was 
syntactically correct.) The intermedi- 
ate transition states comprise the re- 
mainder of the table; they move the 
machine from state to state based on 
the input stream. 

There are two important points to 
note here. One is that the machine is 
not required to absorb an input sym- 
bol (advance the read head) with each 
state transition. It is perfectly accept- 
able for the machine to accomplish 
multiple state transitions with the 
Same input symbol remaining cur- 
rent. The other point is that, by the 
very virtue of the state transitions, the 
machine always ‘‘knows” what it has 
seen previously. In other words, you 
could say, “If the machine is in state X, 
then the last N characters have to be 
the following ....’’ This is an ex- 
tremely important characteristic of a 
state machine because it affords it the 
luxury of discarding input symbols 
once it has used them. (If need be, the 
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machine can reconstruct the input 
stream for the last N characters just 
from knowing the current state.) 


Uses of State Machines 

State machines have many uses. The 
most common, as mentioned earlier, 
is in compiler writing, where they 
are typically used in the lexical anal- 
ysis and the parsing phases of compi- 
lation. There are also programs (most 
notably YACC) that produce a state 
machine from a formal definition of 
a language. Database management 
systems (query languages) also rely 
heavily upon state machines. 

I have used state machines on nu- 
merous occasions, most recently 
when I was asked to write a program 
that would extract information selec- 
tively from a continuous, on-line data 
stream. The input was being pro- 
duced by a PBX that generated call- 
usage and call-summary reports. The 
application required that only select- 
ed data, from a subset of the reports, 
be extracted and stored for further 
processing. The obvious difficulty 
was remembering, at any given 
point, which of the many reports 
were being read and what data to ex- 
tract. I was able to write such a pro- 
gram quickly and efficiently by mod- 
eling the events within the 
framework of a state machine. 


KMP Algorithm 

The Knuth-Morris-Pratt (KMP) algo- 
rithm accomplishes pattern match- 
ing through the use of a state ma- 
chine. Using this technique, you can 
efficiently construct a finite automa- 
ton for a given pattern string. More- 
over, you can then use the machine 
to test quickly for an occurrence of 


the pattern in subject strings. The al- 


gorithm is really divided into two sec- 
tions: the first produces the state ma- 
chine (transition table) derived from 
its pattern arguments; the second 
compares the compiled pattern with 
subject strings. 

The transition table is constructed in 
a straightforward manner. It has an 
initial or start state, followed by one or 
more transition states that are derived 
directly from the pattern string. A one- 
to-one correspondence exists between 
the pattern characters and the gener- 
ated machine states. These are then 
followed by an accept state. Refer to 
the function inits( ) in Listing Three, 
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page 106, for an example. 

The second part of the algorithm 
uses the transition table to make com- 
parisons with input strings. It begins 
processing in the start state and then 
iteratively compares the current 
state information with the corre- 
sponding subject string character. If 
the comparison shows them to be 
equal, the machine moves to the next 
state; if they are not equal, the strings 
are not identical and the machine 
halts. If the machine reaches the ac- 
cept state at the same time as it ex- 
hausts the subject string, it halts and 
accepts the input (the pattern and 
subject match). 

Let's take a close look at the opera- 
tion of the algorithm. For this exam- 
ple, assume a pattern string P = p, pp 
P3.-.. Pn and an input string I = i, iz i; 
... 1p. The machine begins in state 0 
with its read head pointing at ij. 

If the first input token, i,, is not 
equal to p,, then the machine remains 
in state 0. If i; = p,, then the machine 
advances to state 1. In both cases, the 
read head is advanced and the cur- 
rent input token is discarded. The ma- 
chine continues in this fashion as long 
as the current input symbol matches 
the pattern character of the current 
State. 

To generalize, suppose that, after 
having read the input symbols i, i; i; 
... 1x, the machine is in state j. That 
means that the last j tokens of the in- 
put stream are equal to p; p2 ps. . . pj, 
the first j tokens of the pattern string. 
If ix41 = Pj+1, then the machine en- 
ters state }+1 and advances the read 
head. If ix+1 <> pjii1, then the ma- 
chine must recover—that is, it must 
begin to look for an occurrence of the 
pattern string at the next logical in- 
put position. It cannot however, just 









Figure 2: After the comparison 


Figure 3: Values of the failure function for the pattern string P=aabbaab 


blindly enter state 0 and resume pro- 
cessing with the next (current) input 
token; it could miss an occurrence of 
the pattern beginning at locations 
Mk-)+4 or Ik) +2: And, although possi- 
ble (as stated previously), it is ex- 
tremely inefficient to have the ma- 
chine reconstruct and reprocess 
portions of the input stream. What 
the machine must do, therefore, is 
“shift” the pattern forward so that it 
lines up with some portion of the in- 
put stream already processed. 

Figure 1, below, shows an example 
of how this works. If the next subject 
character, X, is not an A, then the state 
machine would move the pattern for- 
ward as in Figure 2, below. Conse- 
quently, it saves the expense of hav- 
ing to compare the pattern beginning 
at the first B in the subject string. Also, 
because the states effectively ‘‘re- 
member’ the last n symbols, the ma- 
chine is not forced to backtrack over 
the input stream. (As mentioned earli- 
er, this feature lets the machine dis- 
card input tokens once it has read 
them.) 

To accomplish this algorithmically, 
the machine employs a failure func- 
tion, f(j), which is defined as return- 
ing the largest s (smaller than j) such 
that p; pz p3 ... ps is a suffix of pj-s+1 
Pj-s+2 Pj-st3--- pj. That is, p, pz p3... 
Ps = Pj-s+1 Pj-s+z2 Pj-s+3 - - - Pj. 

Before I demonstrate how to com- 
pute the failure function, I'll explain 
how it will be used. Given the pattern 
string P=aabbaab, the values of the 
failure function will be as shown in 
Figure 3, below. 

Suppose that the machine is again 
in state j, having read i, iz i3. . . ix. Fur- 
ther, suppose that i,4; <> pj+1. The 
machine will apply the failure func- 
tion in the following manner: 


Pattern: 


> 4 AOC 1 RECA 
Subject: ...ABC. ABC | X... 
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PATTERN MATCHING 
(continued from page 47) 


Step 1: If u = fj) and ig41 = Pyu+i, the 
machine enters state u+1 and ad- 
vances the read head. 

Step 2: If f(j) <> 0, then j = 
repeat step 1. 

Step 3: If fj) = Oand i+; <> p,, then 
the state is reset to 0 and the read 
head is advanced. 


f(j) and 


For example, given a_ pattern 
P=aabbcc and an input I=aab- 
baabbcc, the machine would under- 
go the sequence of transitions shown 
in Figure 4, right. Notice that in step 5 
the pattern was shifted to the third a 
of the input stream, where the 
search was resumed. 

The failure function is implement- 
ed as a table that is created in a man- 
ner analogous to its use. It begins 
with f(1) = 0, by definition. The next 
steps are easiest to explain by way of 
an example. 

eee you have computed f(1), 
f(2), £3 , fj) and that fj) = i. To 
von. 4 (j+1), you compare pj+1 
with pj+;. If they are equal, then 
fij+1) = f(j) + 1. This is because, p, pz 
Ps --- Pi Pi+1 = Pj-i+1 Pj-i+2 Pj-i+3- - - Pj 
Pj+1- If Pj4a <> Pisi, set j = fj) and 
repeat the previous step. Continue in 
this manner until a given pj+1 = Pi+1 
or j = 0. Example 1, page 50, contains 
a pseudocode description of the algo- 
rithm. 


Modifications to the 

KMP Algorithm 

I wanted to use wildcard characters 
in my findcmd program, and _ be- 
cause I could assume a fixed-length 
subject string (the length of DOS file 
names), I dispensed with the failure 
states. (In applications in which the 
subject strings are lengthy, failure 
states greatly increase the efficiency 
of the algorithm and should be im- 
plemented.) I also needed to use a 
backtracking facility to implement 
the asterisk operator—I1 will ex- 
plain more about this when [| dis- 
cuss the program itself. 

I also took the liberty of changing 
the interpretation of the wildcard 
characters and the DOS notion of the 
dot (.) file name extension. As in DOS, 
a question mark (?) in a pattern posi- 
tionally matches any one character 
in a subject string. The asterisk (*) 
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however, functions as a true regular- 
expression operator (a la Unix), 
matching zero or more characters. 
For example, the pattern m*a*x 
matches max, maax, and mxaxx, 
whereas the pattern m?a?x matches 
only mxaxx. Note that you can use 
more than one asterisk in a pattern 
(as long as they are not juxtaposed). 
Finally, a dot (.) in a file name is not 
treated specially; it is handled in the 
Same manner as is any other valid file 
name character. 


Step 


Input 


le ococnmnmeuc a o | 


“OO OON OF W|AN — OO 


hk eek 


Curr 
State 
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Implementation 

I have divided the source code for 
findcmd into three modules, both as 
an aid to presentation and to simplify 
development. The file main.c (Listing 
One, page 92) contains the driving 
code of the program. It loops through 
each pattern (parameter) supplied on 
the command line; compiles that pat- 
tern into a state machine; then steps 
through each component of the path, 
comparing the compiled pattern with 
every file contained in that directory. 


Trans Notes 


State 


Initial 


Failure 


|Onrhwn—f WD 


Figure 4: The sequence of transitions given a pattern P=aabbcc and an 


input I= aabbaabbcc 
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PATTERN MATCHING 
(continued from page 49) 


It then displays every file that success- 
fully matched the pattern string in a 
manner analogous to Unix’s /s —I 
command. 

There are two important points to 
note. The program inserts the cur- 
rent directory (.) at the beginning of 
the path string to mimic the order in 
which DOS searches for commands. 
You should omit this in Unix ports of 
the program. The program also tests 
for a trailing backslash in several 
places in the code. This is largely for 
aesthetic reasons but it also mitigates 
DOS’ tendency to “cough” when pre- 
sented with double backslashes in its 
directory search functions. 

Main.c also contains several ancil- 
lary routines. The function nextdir( ) 


procfindfail( ) 
begin 
FiO) :— OC; 
fort 7 :=— 2ton) 
_do 
i:=f[ j-1]1; 


parses each directory segment of the 
path variable into individual strings; 
putfile( ) prints, in a formatted man- 
ner, all the pertinent information 
about each successfully matched file; 
and fdosdte( ) converts an internal 
DOS date into a formatted ASCII 
string. 

The second module, dos.c (Listing 
Two, page 94), contains the two DOS- 
dependent functions firstf( ) and 
nextf( ), which are used to access DOS 
Find First (4EH) and Find Next (4FH) 
system calls. In addition, firstf! ) sets 
the disk transfer address to point to a 
C structure using the DOS system call 
Set Disk Transfer Address (1AH). In 
order to ensure the validity of the 
pattern matching operation, you 
need to gain access to every file in a 
directory. You therefore need to set 
the DOS search pattern to ** (match 


while( pid) () pii7+1] ANDi) 0) 


do 


4 = fli]. 


end while; 


if( p[j] () p[it1] ANDi =0 ) 


then 
f[j]: 
else 
f[j]: 
end if; 
end for; 
end proc; 





Example 1. Pseudocode description of the failure 


PERISCO 


ussKKeeps you going full steam 
ahead when other debuggers 
let you down. With four 
models to pick from, you'll 
find a Periscope that has just 
the power you need. 


... Start with the model that fits your current needs. If 
you need more horsepower, upgrade for the difference in price plus $10! 
And don’t worry about having a lot more to learn... Even when you 
move to the most powerful model, Periscope III, an extra dozen com- 


mands are all that’s involved. 


Periscope’s software is solid, comprehensive, and flexible. It 
helps you debug just about any kind of program you can write . . . 


Top-of-the-line Periscope Het ermal od 
lll with real-time, hardware es 
breakpoint board. a 


all) and set the CX register to request 
all types of files (system, hidden, and 
so on). This module contains the only 
compiler-dependent piece of code in 
the program. 

The third file, state.c (Listing Three) 
contains the code for the routines in- 
its( ) and state( ). The first function, 
inits( ), compiles the pattern strings 
into a state-machine format. It func- 
tions in a straightforward manner 
and is simple to understand. The 
other function, state( ), is slightly 
more subtle. The basic operation of 
the routine is simple: while in each 
state, it compares the search string 
with the pattern and, if they are 
equal, effects a transition to the next 
state; if the search string and pattern 
are not equal, it halts and returns an 
indicative value. If it makes transi- 
tions as far as the end state and ex- 
hausts the search string, it returns a 
value indicating a match. 

This procedure works quite well 
for patterns that do not contain any 
metacharacters (regular-expression 
operators). The addition of the ques- 
tion mark (?) operator (match any one 
character) is also straightforward be- 
cause it really functions as a place- 
holder. It is only with the asterisk (*) 
operator (match zero or more repeti- 
tions of any character) that a problem 
arises. 

Consider the pattern m*ax. The ba- 
sic algorithm would be able to match 
this pattern successfully with the 
search strings max or mmrax. But 
what would happen with the search 
string maaaax? If you are not careful, 
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And deliver almost unlimited speed and power in the 
process. Get true, multi-user nitill-tasking perfor- Real UN IX, $199 
mance today, not someday. For $199.00. Really. 

Call quick for more info and a UNIX discount coupon. 


(800) 722-UNIX/(800) 822-UNIX in CA 
UNIX is a registered trademark of AT&T. © 1987 Microport Systems, Inc. 
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The Advanced 
Programmer's Editor 
That Doesn’t Waste Your Time 


e Fast, EMACS-style commands—completely reconfigurable 

e Run other programs without stopping Epsilon—concurrently! 
e C Language support—fix errors while your compiler runs 

e Powerful extension language  e Great on-line help system 
e Multiple windows, files e Regular Expression search 
e Unlimited file size, line length e@ Supports large displays 

e 30 day money-back guarantee e Not copy protected 


Only $195 


Software Ltd. 


5740 Darlington Road 
Pittsburgh, PA 15217 





for IBM PC/XT/AT's or compatibles 
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For DOS, Microport 
UNIX, or... 


Protected Mode 











PATTERN MATCHING 
(continued from page 50) 


state( ) will return a “‘no-match” indi- 
cation when it compares maa with 
max. If you provide the function with 
a backtracking capability, however, 
when it encounters a no-match con- 
dition, it will be able to restore the 
environment to a previously saved 
state (actually one subject string char- 
acter beyond the saved position) and 
resume the search. 

I implemented the backtracking 
feature using a stack that lets the 
function store (and recall) state infor- 
mation for patterns containing one 
or more asterisks. Each time it en- 
counters the wildcard operator (case 
’*’-) state( ) saves (pushes) both the 
current state and a pointer into the 
subject string onto the stack. Then, if 
it should encounter a no-match con- 
dition (default:), it can check the con- 
tents of the stack, and if it is nonemp- 
ty, restore (pop) a saved state and 
continue processing. 

The file findcmd.h (Listing Four, 
page 107) contains all the global defi- 
nitions, declarations, and macros ref- 
erenced in the other three files. 

Invoking the program is simple— 
just type findcmd followed by a list of 
patterns (files) for which you want it 
to search. Patterns can be as simple or 
complex as you wish. For example, if 
you want to find the directory that 
contains your favorite editor, just 
type findcmd ed.exe, and the pro- 
gram will search each directory com- 
ponent of your path variable for the 
file ed.exe. If you cannot remember 
whether the file is in .com or .exe for- 
mat, type findcmd ed.”*, findcmd ed", 


amples highlight the fact that 
findcmd, unlike COMMAND.COM, 
treats the period as an ordinary char- 
acter in the file name. That is, a dot 
does not delimit the scope of the as- 
terisk operator. 


Portability 

The program was written under MS- 
DOS using Version 3.0 of the Mark Wil- 
liams C compiler. If you use another 
compiler, the only nonportable code 
is contained in the file dos.c. This file 
should not be too difficult to deal 
with, however. Most popular C com- 
pilers have a method of accessing DOS 
system facilities—just modify the two 
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Now there's a new UNIX'System 
video i gram, from 
the people who wrote the book. 





















AT&q, the inven- videotape 
tor of the UNIX program, you 
System, now can talk directly 
offers the most to the instructors 
comprehensive who developed 
and most current ee the courses. This 
UNIX System a Lo. telephone support 
training, even ._ . | service is offered 
including UNIX only by AT&T. 
System V Release 3.0.4 , So, to purchase or 
A complete curriculum, high-interest, easy-to-follow learn- | lease a video training program that 
on videotape, through ing experience. And each course is authoritative, current, and 
the new AT&T Videotape Library. is self-contained, including complete, call or write now for 
Modular Courses. sample programs and workbook more information on the AT&T 
_] Fundamentals of the UNIX exercises for thorough retention Videotape Library. A demonstration 
System: of skills. video is available. ©1987 AT&T 
Basic Questions? Call us. 
Intermediate If you have any technical questions Call 1800 247-1212, Ext. 1001, 
Advanced after you have reviewed your or mail this coupon. 
LJ Shell Command Language for MEENA AIST Videcuoelinaw = 
Programmers . PO. Box 2160, jecknonville. BL 32232-9912 Peds? 


[]‘C’ Language for Programmers 
Our courses are created by 
AT&T instructors with 10 years of 

experience in grooming AT&T's 
own UNIX System professionals. 
Courses are modular and can be 
used in entirety or in sections. 
More than a ‘taped lecture. 


Each course blends professionally 
developed graphics and text into a 


LJ Please rush me your course catalog on the AT&T Videotape Library 
for Computer Systems Training. 

LJ Please send me information on your classroom training programs. 
LJ UNIX System training (Business applications training 
CJ Data communications and networking training 

Name 

Title 

Company 


Address 








The right choice. 








Stunning speed. Unmatched performance. Total flexibility. Simple 
and intuitive operation. The newest VEDIT PLUS easily satisfies 
the most demanding computer professional. 


Try a Dazzling Demo Yourself. 


The free demo disk is fully functional—you can try all features 
yourself. Best, the demo includes a dazzling menu-driven tutorial 
—you experiment in one window while another gives instructions. 


The powerful “macro” programming language helps you eliminate 
repetitive editing tasks. The impressive demo/tutorial is written 
entirely as a “macro~—it shows that no other editor's “macro” lan- 
guage even comes close. And VEDIT PLUS is only 40K in size. 


Go ahead. Call for your free demo today, You'll see why VEDIT 
PLUS has been the #1 choice of programmers, writers and engi- 
neers since 1980. 


Only VEDIT PLUS is this Flexible. 


The installation lets you pick from closely emulating the keyboard 
layout of Word Perfect, WordStar and others. Or you can easily 
create your own layout and even your own editing functions. Sup- 
ports any screen size—you pick screen colors and attributes. 


Supports the IBM PC, XT, AT and PS/2. Also supports MultiLink, 
PC-MOS/386, Concurrent DOS and most networks. Also avail- 
able for MS-DOS, FlexOS (protected mode), CP/M-86 and CP/M. 
(Yes, we support windows on most CRT terminals, including CRTs 
connected to an IBM PC.) Order direct or from your dealer. $185. 


Special: VEDIT (single file, no windows) for CP/M—$49. 


ruta raare ara 





# PROGRAMMABLE 
EDITOR 


Call 1-800-45-VEDIT for 
FREE Fully Functional Demo Disk 



























e Fully Network Compatible 
e Call for XENIX-286 version 
e 30 Day Money-back guarantee 





Compare Features and Speed 





Norton VEDIT 
BRIEF Editor PMATE PLUS 

‘Off the cuff macros No No Yes Yes 
Built-in macros Yes No Yes Yes 
Keystroke macros Only1 No No Unlimited 
Multiple file editing 20+ 2 No 20+ 
Windows 20+ 2 No 20 + 
Macro execution window No No No Yes 
Pop-up menus No No No Yes 
Execute DOS commands Yes Yes Yes Yes 
Automatic processing of 

Compiler errors Yes No No Yes 
“Cut and paste” buffers 1 1 1 36 
Undo line changes Yes No No Yes 
Paragraph justification No No No Yes 
Convert to/from WordStar No No No Yes 
On-line calculator No No No Yes 
Configurable Keyboard Hard No Hard Easy 
43 line EGA support Yes No No Yes 


Manual size/index 250/No 42/no 469/Yes 380/Yes 


Benchmarks in 120K File: 
2000 replacements 
Pattern matching search 
Pattern matching replace 














1:07 min 6sec 
Cannot 2 sec 
Cannot’ 11sec 


1:15 min 34sec 
20sec Cannot 
2:40 min Cannot 






ee ee aR 8 


wetting all types of progress and fengiig 
ee gee eat Se 


ae 2 
ee Se ee ee | 
windowing. One window ie axed for 
processing. a asoond for progres 
Ce ew Me te wee 
OR ee ec es ae ey 
; i size and color. 


VEDIT and CompuvView are registered trademarks of CompuView Products, Inc. BRIEF is a trademark 
of UnderWare, Inc. PMATE is a trademark of Phoenix Technologies Ltd. Norton Editor is a trademark 
of Peter Norton Computing Inc. MultiLink and PC-MOS/386 are trademarks of the The Software Link, 
Inc. CP/M and FlexOS are trademarks of Digital Research. MS-DOS is a trademark of Microsoft. 


CompuView 


1955 Pauline Blvd., Ann Arbor, MI 48103 
(313) 996-1299, TELEX 701821 
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“Also available for Tl Professional, Tandy 2000, DEC Rainbow, Wyse WY700 and others. 
“Demo disk is fully functional, but does not readily write large files. 






























PATTERN MATCHING 
(continued from page 52) 


C functions to work within your com- 
pilation environment. 

For those who wish to port the pro- 
gram to a Unix system, the same ca- 
veat applies: just modify the func- 
tions in dos.c. You will have to 
completely rewrite the routines but, 
again, this should not be difficult. A 
good description of how to access a 
Unix directory is in Brian Kernighan 
and Rob Pike’s The Unix Program- 
ming Environment (see bibliography). 


Extensions 

This program can accommodate sev- 
eral extensions. One that I like (I have 
implemented it on both my PC and 
Unix versions) is the addition of a 
switch on the command line to direct 
the program to access an alternate 
environment variable in lieu of path. 
This is useful if you tend to keep ap- 
plication source files scattered all 
over your disk. You could set this al- 
ternate variable (in the same format 
as you would your path) to point to all 
your source code directories. Then, 





64180/Z80 


by setting one switch on the com- 
mand line, findcmd can search an al- 
ternate set of directories for you. 

You can modify the functions con- 
tained in state.c for independent use 
by incorporating the routine inits( ) 
into a separate program. This pro- 
gram’s only function would be to 
compile pattern strings and store the 
results in a file. Then, at execution 
time, a program performing the actu- 
al comparisons would not incur the 
expense of “compiling” the pat- 
terns—it would just read them from 
disk. This would operate in a manner 
similar to the Unix utilities reg- 
comp( ) and regex( ). 

Additional regular-expression op- 
erators could be incorporated into 
the algorithm to add more power 
and flexibility to search patterns. I 
have found, however, that the opera- 
tors now included in the program are 
adequate for everyday use (and there 
are better algorithms than KMP for 
recognizing complex regular expres- 
sions). 

Finally, consider how simple the 
changes would be to transform this 
program into an /s command (as if 


you needed another one!). 


Conclusions 

In any development environment, 
no single programming tool is suffi- 
cient to satisfy every need. Any in- 
strument or methodology that can 
spare us from the tedium of a routine 
chore, or enable us to become more 
productive, should be embraced 
with open arms. State machines are 
just such a tool and can benefit all 
programmers. 


Availability 

All the source code for articles in this 
issue is available on a single disk. To 
order, send $14.95 to Dr. Dobb’s Jour- 
nal, 501 Galveston Dr., Redwood City, 
CA 94063, or call (415) 366-3600, ext. 
216. Please specify the issue number 
and format (MS-DOS, Macintosh, Kay- 
pro). If you would rather not have to 
retype the entire program send me a 
check for $6 and I will mail you an 
MS-DOS floppy (360K format) contain- 
ing the program and source code. 
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FORTH DEVELOPMENT ENVIRONMENT 


Take advantage of Bryte’s tools to make your job easier: 
@ Bryte’s development environment uses BRYTE-FORTH 
on the actual production hardware during product 

development. No emulators, no changes, no surprises. 


Optional PC-based cross-development tools use DOS 


Using bank switched or disk 
based overlays, your modular 
program can be as large as 
you want. Our linker generates 
the code to switch in the correct 
bank at the right time, or load 
the right module from disk. 
Includes source to the overlay 
loader for easy customization 
to your requirements. SLRNK 
Plus 3.0, from the leaders in 
8-bit development tools. 

$195 


__SLR_Systems 
1622 N. Main St. 


Butler, PA 16001 
{412} 282-0864 (800} 833-3061 TELEX: 559215 
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files as microcontroller mass storage. These files 
can be used to generate compact EPROM images, de- 
tailed listings, and cross-references. 


Why not start developing the Bryte way today? 


BRYTE-FORTH 8831 EPROM 

(includes 13% page User’s Manual) 
Utility disk(s) 
Cross-compiler/Cross-assembler 
8031 unlimitted quan. license 


100.00 


65 .00* 
235.00* 
1000.00* 


Includes complete source code 


loryte computers, inc. 


P.O. Box 46 
Augusta, ME 04330-0046 


207/547-3218 





CIRCLE 387 ON READER SERVICE CARD 
55 


THE CURE 


FOR COMMON CODE 





re you getting the recommended monthly 
allowance of C, Assembly, Forth, Pascal, 
BASIC or Modula-2? Subscribe to Dr. Dobb's 
Journal of Software Tools and you won't catch 
any nasty bugs again! 
Each month the Doctor brings you aid for 
ailing algorithms and the cure for common 
code. For the latest developments in 
software design and pages of code that will 
make you a more productive programmer, 
take the Dr. Dobb’s prescription. 
For more than a decade, the programming 
elite have known Dr. Dobb’s Journal to be 
the foremost source of software tools. 
Subscribe now and get your wD dose 
from the Doctor. | 
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(continued from page 55) 


Ullman, Jeffrey D. The Design and 
Analysis of Computer Algorithms. 
Reading, Mass.: Addison-Wesley, 
1974. 

Aho, Alfred V; and Ullman, Jeffrey D. 
Principles of Compiler Design. Read- 
ing, Mass.: Addison-Wesley, 1979. 
Baase, Sarah. Computer Algorithms. 
Reading, Mass.: Addison-Wesley, 
1303. 

Barrett, William A.; and Couch, John 
D. Compiler Construction: Theory and 
Practice. Chicago, Ill.: Science Re- 
search Associates Inc., 1979. 
Kernighan, Brian; and Pike, Rob. The 
Unix Programming Environment. En- 
glewood Cliffs, N.J.: Prentice-Hall, 
1984: 208— 219. 


DDJ 
(Listings begin on page 92.) 


Vote for your favorite feature/article. 
Circle Reader Service No. 4. 





Direct from the 
man who gave you 
The Norton Utilities, 
Inside the IBM PC, 
and the Peter Norton 
Programmer's Guide. 





Peter Norton Computing, Inc., 2210 Wilshire Boulevard, 
Santa Monica, CA 90403, 213-453-236 1. Visa, 
Mastercard and phone orders welcome. 


Brand New From Peter Norton 
A PROGRAMMER'’S EDITOR 


that’s ightning fast with the hot 
features programmers need 


a I’d had when I wrote my 
Norton Utilities. You can 
program your way to 
glory with The Norton 

i Editor.” 


“This is the program- 
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Copy protection and 
customer satisfaction? 


here's a better way to protect your software. 
It's called the Secom Key, and it works. 


(_} The Key is completely transparent to the 


end user. 


[_) Won't interfere with peripheral operations. 


(_} Doesn't occupy the disk drive. 


_) The Key allows unlimited backup copies. 
(-]) Makes site licensing easy and auditable. 


_) Fasily installed. Uses only 1000 bytes. 


[_} Over 60,000 have been sold worldwide. 


[_} Same size as RS-232 plug. 


(_) Available in quantities for as low as $19. 
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H+-§ or more information, contact 
Secom Information Products Co. 


500 Franklin Square 
1829 East Franklin Street 
Chapel Hill, NC 27707 


The Secom Key... 
for real 

software 
protection. 


Secom Information Products Company 


A Subsidiary of Secom General Corporation 


Call Toll-free 1-800-843-0413 
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Peter Norton 
new programm 


ohate 


Nobody ever said programming PCs was 
supposed to be easy. 

But does it have to be tedious and time- 
consuming, too? 

Not any more. 


wwitv tool for |W Vs program on the le 
. Ie ae wae 3 Which is designed to save you most of the 


of cross-referenced data at your time youre currently spending searching through 
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manual the books and manuals on the shelf above. 
» fingertips. fo a nae simple The Norton On-Line Programmer’s Guides™ 
ee - Includes are a quartet of pop-up reference packages that do 
7; ™/. ki o reating the same things in four differ- 
aX‘ compiler for ¢ bcs ent languages. ; 
\ your own databases. Each package consists of 
Also available in two parts: A memory-resident 
versions for BASIC, C Instant Access™ program. 
and Pascal. _ And a comprehensive, ( 
pple cross-referenced database “=, 
crammed with just about ™ 


everything you need to know to program in your 
favorite language. 


d when we say everything, we mean 
everything. — 
Everything from information about language 


Designed for IBM® PC, PC-AT and DOS compatibles. Available at most software 


For the complete IBM® PC fam 





aTMOUNCES a 


tool for people 
cue ae 


syntax to a variety of 
tables, including ASCII 
characters, line draw- 
ing characters, error 
messages, memory 
usage maps, important 


data structures and 
NOre. A Guides reference summary 
How much more? ae ieee in blue) pops < on 
; j 
Well, the databases "a trramoure worn 


for BASIC, C and Pas- 
cal give you detailed listings of all built-in and 
library functions. 

While the Assembly database delivers a com- 
plete collection of DOS service calls, interrupts 
and ROM BIOS routines. 

You can, of course, find most of this informa- 
tion in the books and manuals on our shelf. 

But Peter Norton—who’s written a few books 
himself—figured you'd rather have it on your 
screen. 

In seconds. 

In full-screen or moveable half-screen mode. 

Popping up right next to your work. Right 
where you need it. 





This, you're probably 
thinking, is precisely the 
kind of inland that pro- 


duced the classic Norton 
Utilities.” 
And youre right. 
But even Peter Nor- 
Summary data expands on ton cant think of every- 
command into extensive detail. g. 
Te Le Which is why there’s 


a built-in compiler for 
aoe databases of your own. 

And why all Guides databases are compatible 
with desi Instant Access program in your original 
package. 

So you can add more languages without spend- 
ing a lot more money. 

To get more information, call your dealer. Or 
call Peter Norton at 213-453-2361. 

And ask for some guidance. 


Peter Norton- 


COMPUTING 


dealers, or direct from Peter Norton Computing, Inc.,2210 Wilshire Blvd., #186, Santa Monica, CA 90403. 213-453-2361, Fax 213-453-6398, MCI Mail: PNCI © 1987 Peter Norton Computing 
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Keke Kk Kk Kk KKK KK KR Kw KR RK KK KR KR KK KR KKK KK RK KK KK RE KK 


THIS FILE CONTAINS EXCERPTS FROM THE APPLETALK SOURCES, 
VERSION 39, AUGUST 1985, AS MODIFIED BY DARTMOUTH COLLEGE 
TO PRODUCE THE ASYNC APPLETALK DRIVER (.BPP) VERSION 1.2 
(ASYNC APPLETALK INSTALLER VERSION 2.1) OF MAY 1987. 


THESE EXCERPTS CONTAIN INFORMATION OF TWO TYPES: 
1) CODE WRITTEN ENTIRELY AT DARTMOUTH COLLEGE; 
2) CODE WHICH IS FUNDAMENTALLY SIMILAR TO THE 
PRELIMINARY APPLETALK SOFTWARE DISTRIBUTED 
WITHOUT RESTRICTION AT THE APPLEBUS DEVELOPER'S 
CONFERENCE IN CUPERTINO, CA IN MAY, 1984. 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* PORTIONS OF THIS CODE ARE COPYRIGHT OF THE TRUSTEES OF 
* DARTMOUTH COLLEGE OR APPLE COMPUTER INC. 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


THESE CODE SEGMENTS ARE PROVIDED FOR INFORMATION ONLY. NO 
GUARANTEE OF CORRECT OPERATION IS PROVIDED. 


FOR MORE INFORMATION ABOUT THIS CODE, CONTACT: 


Rich Brown 

Manager of Special Projects 
Dartmouth College 

Kiewit Computer Center 
Hanover, NH 03755 
603/646-3648 


a 
kkake file ALAPDEFS.A. ***** 


AALAPdefs.a contains all the special definitions which were not 
needed for .MPP , 


.BPP et al should now use unmodified versions of: 
{AIncludes}atalkequ.a 
lapdefs.a 
vardefs.a 


=e Se “Se “ese “se Se Se Se Ve 


Created 31 Mar 87 reb 


AALAP constant defs 


e es “Se 


MaxLAPFrmLen EQU 586+13+3+2 DDP data + DDP hdr + LAP hdr + CRC 


FrameChar EQU SA5 ; the Framing Char 

qFrmChar EQU -91 ; for moveq instructions 

DLE EQU $10 

Xoff EQU $13 

Xon EQU $11 

lapIM EQU $86 ; I aM 

lapUR EQU $87 ; yoU aRe (sorry for these names...) 
qlapIM EQU -122 

qlapUR EQU -121 

noansalrt EQU ~15998 

portncalrt EQU -15997 

; Added constant return value for AALAP -- 

noAnswer EQU -95 ; same as excessCollsns in real AtalkEqu 
AAOfst EQU 10000 :; 0 or 10000 (for final version) 


;+ MPP (Status calls to NBP, DDP and AALAP) 


Get Stats EQU 400 7; (ABLAP) get the statistics 
GetMyName EQU AAOfst+255 ; get the name of the ATalk driver 
(AALAP ) 

GetChar EQU AAOfst+254 ; get the most recently received char 
(AALAP ) 

Get LAPStatus EQU AAOfst+253 ; return AALAP status (AALAP) 


7+ MPP (Control calls to NBP, DDP, and AALAP) 


FirstAPP EQU AAOfst+237 ; First APP control call 

DoWarnings EQU AAOfst+237 ; Put up the specified alerts 

(AALAP ) 

PutChar EQU AAOfst+238 ; Loop ‘til TBMT, then output the char 
(AALAP ) 


Dr 
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The Software Family 


Dept DD107, 649 Mission Street 
San Francisco, CA 94105 


(1)800-443-7176 
In California or outside U.S. 


(415)583-4166 


Trust TSF to provide the 
best value and service! 


* Technical advice and support by 
programmers 


* Honest and equitable business practices 


* Prompt, flexible service to meet your 
needs 


We accept checks, Visa, MasterCard, American Ex- 
press and COD. We charge your card only when 
we ship and do not add a surcharge. We provide 
free UPS delivery on software orders over $100 ($3 
delivery charge on orders under $100). We add ac- 
tual charges for UPS Blue Label or Federal Ex- 
press rush service. Our COD fee is $2. We allow 
return privileges on most products. We carry a 
large inventory and ship promptly, so you receive 
your shipment within 3 to 6 working days of plac- 
ing your order. Give us a try! 


October Specials 


Microsoft Quick C (list $99)....ssssvveesseee $62 


Blaise Turbo C Tools (list $129).............0. $95 


ISR/TSR support, critical error trapping, direct video 
access, more. 


Matrix Synergy Toolkit ($395)............000 $289 


Complete user interface toolkit including multi-task- 
ing, windows, clipboard data transfer, menus, icons, 

aphics, mouse/cursor control and code generator 
ir C and Turbo Pascal. Includes bindings for most 
popular Basic, C and Pascal compilers. 


Metagraphics Turbo Window ($95)............. $75 


Windows, era hics, multiple fonts ues eee and 


popotona mouse/cursor control. Specify Turbo 
e or Turbo Pascal. 
Softfocus Btree & ISAM (list $115) ........... $99 


Complete multi-key ISAM file system with source. 


Prices good until November 15, 1987 





Basic 6 

Turbo Pascal dBase 

Publishing Aw 
Aldebaran Source Print (list $75) ........ssecessseseseeeeee $59 
Aldebaran Tree Diagrammer (list $55) ............c000000 $42 
Blaise C Tools ¥  GistS1 15) -ocsccse- sacs cb isincscoeectestieioss $125 
Blaise Turbo C Tools (list $129) wo... eeesesesseeeees $95 
Blaise Turbo Power Tools + (list $99)... $79 
Borland Tarho-C. (list $99). .ccccsssssnesseccsesssscescossoestenss $64 
Creative Vitamin C Specify compiler (list $225)......... $159 
Creative Programming VC Screen (list $100)............ $79 
Digitalk Smalltalk/V (list $99) .........cscsccscssssesesseeeees $82 
Gimpel PC-Lint (Hist D139) 53. csciscosostsessoseocoees $103 
Greenleaf Data Windows Specify compiler ($225) .... $157 
Guidelines C + + for Microsoft C (list $195)............ $175 


Logitech Modula-2 Apprentice Package ($99)........ $79 
Logitech Modula-2 Wizard’s Package ($199) ....... $159 
Matrix Synergy Development Toolkit (list $395) ..$289 
Metagraphics MetaWindow/All Language ($195) .$159 


Metagraphics TurboWindow/C ($95) .......ccsceeseeseees $75 
Metagraphics TurboWindow/Pascal ($95) .............. $75 
MicroHelp Mach2 for Microsoft Basic ($69)......... $55 
windows, fast i/o, critical error trapping, more 
MicroHelp Mach2 for Turbo Pascal ($69).............. $55 
Microsoft C v5 w/Codeview & Quick C (list $450) ......$279 
Microsoft Qatek:-C (list $99) rss oiiiscncssinietsndssavetens $62 
Microsoft Fortran w/Codeview (list $450) 0... $270 
Microsoft Quick Basic V3 (list $99) ..........ccsceseeseeees $45 
You pay TSF $65 and get $20 rebate from Microsoft 
MKS Toolkit Korn shell, vi, grep, 30 more ($139)........ $115 
Periscope Periscope I (list $345) ........ccscscecessseeseeees $279 
Periscope Periscope II (list $175).........sssssececseeseees $139 
Periscope Periscope III (list $995) ...........sscscscesesees $799 
Periscope Periscope III 10Mhz (list $1095)............ $876 
Phoenix PRIS-86 +. (list $395): ic..cicc.cys.<ossesateaseaoseiaes $250 
Phoenix Plink-86 + (list $495) 0... esssssseceseeeeeeees $315 
PMI Repertoire for Logitech Modula-2 ($89) ...........00 $75 


Softfocus Btree & ISAM C DBMS w/source ($115).... $99 
Sterling Castle Basic Development Tools ($99).......$79 
Sterling Castle Blackstar "C" Functions ($129)....... $99 


Texas Instruments PC Scheme great AI intro.............. $77 
Turbo Power Extender (list $85) ..........c:csssscssesseeeesees $68 
Turbo Power Optimizer (list $75) .........:sssssscseesseees $59 
Turbo Power Optimizer w/Source (list $175) ............. $99 
Turbo Power TDebug Plus v2 (list $60) ...............04 $48 
Turbo Power Turbo Utilities w/source ($95)..........0 $76 


Unipress Phact RDBMS w/ report & query ($249)......$199 


New! 


Save! 


Save! 
Save! 


New! 
Save! 
New! 
Save! 


Save! 


New! 


New! 


TSF carries hundreds of products 
from dozens of publishers. Call or 
write for a FREE catalog or a price 
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ReInitAALAP 
(AALAP ) 
Get NNNN 
(AALAP ) 
Set Baud 
(AALAP ) 
LastAPP 

EJECT 
; LAP variables 
WDSPtr EQU 
LAPWrtRtn EQU 
SaveA45 EQU 
SaveDskRtn EQU 
PollProc 
SavePS EQU 
address 
SaveBIn EQU 
SaveBOut EQU 
SaveVects EQU 
here 
SaveRegs EQU 
PollProc 
; Variables for 
VAVBufA EQU 
STLth EQU 
VSTData EQU 
VDisTxRTS EQU 


EQU 


EQU 


EQU 


EQU 


Lisa/Mac hardware differences 


EndOrigStuff EQU 


=e “Se Se 


twWDSptr EQU 
qwDSptr EQU 
Last Xmit EQU 
LastRcv EQU 
received frame 
LAPStash EQU 
place 

LAPFetch EQU 
LAP InBuf EQU 
IMURwds EQU 
BusyBuf EQU 
doingRead 
BusyStash EQU 
BusyFetch EQU 
IMURbuf EQU 
adrs) 

InputCRC EQU 
Out put CRC EQU 
RcevdLen EQU 
TxCount EQU 
CRCBuf EQU 
xmission 
RandomSeed EQU 
Last RxCh EQU 
SFFFF 

AALAPbaud EQU 
SentChar EQU 
nFrmChr EQU 
nCRC EQU 
EscIn EQU 
EscOut EQU 
char 

Rcevdxoff EQU 
AALAPup EQU 
AALAPstuck EQU 
InpState EQU 
stillBusy EQU 
nXon EQU 
SendingIMUR EQU 
_AssumeEq 
_AssumeEq 


IF 


AALAP varibles 


AAOfst+239 
AAOfst+240 
AAOfst+241 


AAOfst+241 


MPPVarsEnd 
WDSptr+4 
LAPWrtRtn+4 
SaveA45+8 


SaveDskRtnt+4 


SavePS+4 
SaveBIn+4 
SaveBOut+4 


SaveVects+16 


SaveRegs+20 

6 

VAVBufA+4 
VSTDatat1l 
VSTData+STLth 


EndOrigStuff+2 
twWDSptr+4 
qwDSptr+4 
LastXmit+4 


LastRev+4 


LAPStash+4 
LapFetcht+4 
LAPInBUf+4 
IMURwds+8 


BusyBuf+16 
BusyStasht4 
BusyFetch+4 


IMURBuf+8 
InputCRC+2 
OutputCRC+2 
RcvdLen+2 
TxCount+2 


CRCBuf+2 
RandomSeed+2 


Last RxCh+2 
AALAPbaud+2 
SentChar+1 
nFrmChr+1 
nCRC+1 
Escint+l 


EscOut+1 
Revdxoff+1 
AALAPup+1 
AALAPstuck+1 
InpState+l 
stillBusy+1 
nXon+1 


(InpState+1),stillBusy 
(InpState**SFFFFFFFE) , InpState 


debug THEN 


. 
’ 


. 
’ 


. 
’ 


ReInitialize the AALAP variables & SCC 


Do NNNN 


Set the 


=e “ese “Se Se 


=e Se Se 


=e “es “Se Se Se =e 


=e “es “Ss Se 


Se Se Se Se 


=e Se Se 


=e %s “Se Se Se 


=e Se 


Se Se Se Se Ss Ne 


=e Se Se Se Se Se Re 


. 
’ 


(4) 
(4) 
(8) 
(4) 


(4) 


(4) 
(4) 


using SysNetNum and sysLAPAddr 


baud rate of the SCC 


WDS pointer saved here on writes 
return adrs of LAPWrite caller 
A4 and A5 saved here on interrupt 
DskRtnAdr saved here for 


in AALAP, the real PollProc's 


-BIN DCE saved here (for close) 
-~BOUT DCE saved here (for close) 


(16) SCC interrupt vectors saved 


(20) Registers saved here across 


Pointer to VIA or a SFF word 
Size of STData area 

Data string to SCC after send 
This is the DisTxRTS byte 


(4) 
(4) 
(4) 
(4) 


(4) 
(4) 


(4) 
(8) 


WDS ptr of frame being tx 

WDS of a queued DevMgr frame 
Ticks at time of last char sent 
Ticks at time of last good 


Pointer to next received char's 
Pointer to next char to xmit 


Pointer to the LAP input buffer 
WDS for IM or UR frames 


(16) Holds up to 16 chars rcvd while 


(4) 
(4) 
(8) 


(2) 
(2) 
(2) 
(2) 
(2) 


(2) 
(2) 


(2) 
(1) 
(1) 
(1) 
(1) 
(1) 


(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 


. 
’ 
o 
’ 


pointer to next space in BusyBuf 
pointer to next char to remove 
Holds IM or UR (starting at odd 


CRC for the receiver 

CRC for the transmit side 
Number of chars received 
Number of char's transmitted 
Two bytes for the CRC for 


Seed for random number generator 
Lsbyte is last revd char, else 


Current baud rate of the LAP 

True if TxNextCh sent a char 

True if we must send a FrameChar 
True if we must send the CRC 
Escaping flag for the receiver 
Transmitter is sending an escaped 


We received Xoff 

true if we've handshook IM & UR 
true if we have NNNN conflict 

0 = idle; <> 0 = ina frame 

true if still processing a read 
true if we sent Xoff 

true if sending AALAP control frame 


tst.w InpState(A4) in 


myPollProc fails otherwise 


doing statistics 





(continued on page 65) 
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COMES OFAGE. . 
ANNOUNCING LOGITECF] MODULA22 VERSION 3.0 


Linkable Library, F 
Point Editor 

__} LOGITECH Modula-2 $169 
V30lobolkit 
Library sources. Linker, Run Time Debug- 
ger, MAKE, Decoder, Version, XRef, 
Formatter 


|] LOGITECH Modula-2 
V. 3.0 Development System $249 


cS) 


Compiler Pack plus Toolkit ~ 

[| Turbo Pascalto | FREE — 
Modula-2 Translator. in | tol — 
With Compiler Pack or Development System <a a - 


| Window Package _ $49 : 


Build true windowing into — 
Modula-2 code. 


(] Upgrade Package — ; : oe 
Cali LOGITECH fo formation or ££ 
to receive an order form. _ ee 

Add $6.30 for shipping and ni ing. California residents 

s valid 


add applicable sales tax. Pr 
in U.S. only. Total Raclosea $ 


LJ] VISA () MasterCard |] Check Enclosed 
CardNumber = =——“‘COC*‘@Xpirattion ‘dDaate= 
Signature 
Address 
City 


Zip 








Some Of The Most Famous Faces 
In Software Use Our C Functions 


Our famous customers are a little camera shy. It’s not that : 
they are embarrassed by being Essential C Utility Library Functions At A Glance 
& 


users. They just don’t want us shouting their names from Fastest screen output available. @ Disk error trapping 


the roof tops. e Save/Restore color screens in e Determine space available 
1/10 sec. e 40 functions to process 
f : : @ Pop-up block cursor menus characters and words 
The prestige of our users is not the primary reason to buy e Save/Restore windows to disk — @ Insert, delete, extract, index, 
the Essential C Utility Library. The increased speed, or memory translate 
features, and size efficiency of our products are the factors e 50 functions for business 2 ea ee ice 
that demand their use. Our library contains over 400 graphics PROS 
; e dozens of string formats code 

fi nS all © time and date arithmetic e All source code included 
designed with ® julian and day-of-week Documentation: 
elegance in mind. © Ctrl-Break key trapping Thorough, comprehensive, 260 

e Field oriented data entry pages 

e Stuff keyboard buffer Compatible C Compilers: 
However, should e 18 Mouse control functions Microsoft, Lattice, Computer 
curiosity get the e Execute programs and batch Innovations, Aztec, Mark 
best of you, call us files Williams, DeSmet, and Wizard 
at 201-762-6965 mK 
and we’ll drop $185.00 


a few highly Do Your Homework 
pepe Ve. RAMEs The library you buy can influence the rest of your 
on you. 





programming life. We encourage you to do some checking 

—— before making a decision. When you’ve done your home- 
Behind every great program Is a great work, you'll choose Essential. Call our support staff of 
library. experienced C programmers and find out before you buy 
how things will be after your check clears. 


What’s a Library Without a Librarian? 


Our library comes complete with a sophisticated source 
code librarian. Now you can maintain current versions and 
conserve disk space. We want your development work to 
go as smoothly as possible. 


To order or for support 
call: 201-762-6965 


For foreign orders contact: 
England: Gray Matter Tel. (0364) 53499 
Japan: Lifeboat Inc. of Japan Tel: 293 4711 
West Germany: Omnitex Tel. 07623-61820 


No Royalties, 30 Day Guarantee 


If within 30 days you don’t find our library totally 

satisfactory, bag the whole thing and receive a complete ° 
refund. There are no royalties associated with the Essential Softwar e, Inc. 
library. PO. Box 1003, Maplewood, New Jersey 07040 


CIRCLE 168 ON READER SERVICE CARD 





C Chest and 
Other C 
Treasures 


from Dr. Dobb's 
Journal 


Turbo C: 


The Art of 
Advanced 
Program Design, 
Optimization and Debugging 


by Stephen R. Davis 





Eyton with example programs, this book fully 
describes the techniques necessary to skillfully program 
optimize, and debug in Turbo C. Every topic and Turbo C 
feature discussed is fully demonstrated in Turbo C source 
code examples. Advanced topics such as pointers; direct 
screen I/O; inline statements in Turbo C; and how to inter- 
cept and redirect BIOS calls are all covered in depth. The 
author further demostrates these advanced topics by writing 
a RAM resident pop-up program in Turbo C. In addition, 
the author fully outlines the differences between Unix C 
and Turbo C; the transition from Turbo Pascal to Turbo C: 
and the superset of K&R C features implemented in Turbo C 
and included in the proposed ANSI C standard. 


All programs are also available on disk with full source 


code. MS-DOS format. 


® Book & Disk (MS-DOS) 
$39.95 Item #45-3 


/ 


& Book 


$24.95 Item #38-0 


mall-Windows is a complete windowing library for C (Microsoft 4.0, Small-C, and Lattice C.) 


The package includes: 


e 18 video functions written in assembly language 





C Chest and Other C Treasures 


from Dr. Dobb's Journal Edited by Allen Holub 


his comprehensive anthology contains the popular “C Chest” 
columns from Dr. Dobb’s Journal of Software Tools, along with 
the lively philosophical and practical discussions they inspired, an 
other information-packed articles by C experts. 





Topics covered include: pipes, wild-card expansion, and quoted 
arguments; sorting routines; command-line processing; queues anc 
bit maps; utilities such as /s, make, and more; expression parsing; 
hyphenation; IBM cursor control and an Fget that edits; redirection 
accessing IBM video display memory; trees; an AVL tree database 
package; directory traversal; sets; shrinking .EXE file images; hash 
ing, expressions, and Roman numerals; and statistical applications 
of digital low-pass filters. 


Other treasures include: a variable metric minimizer: 
Fgrep; a peephole optimizer; curve fitting with cubic 
splines, 


All subroutines and programs are written in C, and are available 
on disk with full source code. MS-DOS format. 


® Book & Disk (MS-DOS) 


m Bask 
$39.95 Item #49-6 oa 


$24.95 


Small-Windows: 
A Library of Windowing 
Functions for the 

C Language 


by James E. Hendrix 


Item #40-2 


¢ 7 menu functions that support both static and pop-up menus 
¢ 41 window functions to clean, frame, move, hide, show, scroll, push, and pop windows. 





A file directory illustrates the use of window menu functions and provides file selection, renaming, and deletion capability. 


Two test programs are provided as examples to show you how to use the library and the window, menu, and directory 
functions. 


The Small-Windows package is available for MS-DOS systems, for the following compilers: Turbo C, Microsoft C Version 4.0, 
Small-C, and Lattice C. Documentation and full C source code is included. > Manual & Disk (MS-DOS) 


$29.95 Item #35-6 


a 
ORDER FORM 
YES! Send Me: 


Item # Description Price 





SAVE 15% 


Receive the C Chest 
book and disk, the Tur- 
bo C book and disk, 


For Small Windows, indicate: 

_] Microsoft C version 4.0 compiler 
LJ Small C Compiler 

() Lattice C Compiler 


Subtotal 


CA residents add sales tax % 








Add $2.25 per item for shipping 


and the Small-Win- HO) Turbo C ema 
dows manual and disk, 1 Check enclosed. Make payable to M&T Publishing. 
all for only $93.95! You Charge my (J VISA LJ M/C JU) Amer. Exp. 
save 15%! Card # Exp. Date 
Name 
& C Chest/Turbo/Window Ah 
Package - 
Item #168 $93.95 » City State ip 


3132A 
& 


Bring the Convenience of Unix-Like 





Features to Your MS-DOS Machine 





NR: 
of the Unix 


by Allen Holub 





NM R:: a text formatter that is written in C and 
compatible with Unix’s NROFF. Complete 
source code is included in the NR package so that it 
can be easily customized to fit your needs. NR also 
includes an implementation of the -ms (manuscript) 
macro package and an in-depth description of how 
-ms works. NR does hyphenation and simple propor- 
tional spacing. It supports automatic table of contents 
and index generation, automatic footnotes and end- 
notes, italics, boldface, overstriking, underlining, and 
left and right margin adjustment. NR also contains: 





® extensive macro and string capability 

® number registers in various formats, including 
Roman and Arabic numerals, both spelled out 
and in outline form 

® diversions and diversion traps 
(macros that are triggered automatically) 

® input and output line traps 


NR comes configured for any Diablo-compatible 
printer, as well as Hewlett Packard’s ThinkJet, and 
LaserJet. It is easily configurable for most other 
printers. Both the ready-to-use program and full 
source code are included. For PC compatibles. 


® Manual & Disk (MS-DOS) 
$29.95 Item #33-X 


TO ORDER: Return the Order Form on the 
reverse side 


An Implementation 


NROFF Word Processor 


AMT 


AE 
Wet 


On Command: 
Writing a Unix-Like 
Shell for MS-DOS 


by Allen Holub 


ST 





his book and ready-to-use program demonstrate how to write a 

Unix-like shell for MS-DOS, with techniques applicable to most 
other programming languages as well. The book and disk include a 
detailed description and working version of the Shell, complete C 
source code, a thorough discussion of low-level MS-DOS intertac- 
ing, and significant examples of C programming at the system level. 


Supported features include: read, aliases, history, redirection and 
pipes, Unix-like command syntax, MS-DOS-compatible prompt 
support, C-Shell-based shell scripts, and a Shell variable that 
expands to the contents of a file so a program can produce text that 
is used by Shell scripts. The Unix-like control flow includes: 
if/then/else; while; foreach; switch/case; break; continue. 


The ready-to-use program and all C source code are included on 


disk. For IBM PC and direct compatibles. 
® Book & Disk (MS-DOS) /Uti 
il 
by Allen Holub 


$39.95 Item #29-1 

hen used with the Shell, this collection of utility programs and 

subroutines provides you with a fully functional subset of the 
Unix environment. Many of the utilities may also be used indepen- 
dently. You'll find executable versions of cat; cp; date; du; echo; 
grep; ls; mkdir; mv; p; pause; printevn; rm; rmdir; sub; and chmod. 


The Util package includes complete source code on disk and all 
programs (and most of the utility subroutines) are fully documented 
in a Unix-style manual. For IBM PC and direct compatibles. 

& Manual & Disk (MS-DOS) 


$29.95 Item #12-7 


KK 
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DESL 
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U INESS REPLY MAIL eae se : Receive On Command. 
FIRST CLASS PERMIT 871 REDWOOD CITY, CA Ree ; Util and NR together for 
POSTAGE WILL BE PAID BY ADDRESSEE ME, only $85.95! You get all 
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ASYNC APPLETALK 


Listing One (Listing continued, text begins on page 18.) 


XmitCount EQU SendingIMUR+1 
XOFFTOcount EQU XmitCount+4 
OVRcount EQU XOFFTOcount+4 
RevintCount EQU OVRcount +4 
XOFF count EQU RevintCount+4 
XONcount EQU XOFFcount+4 
LongFrame EQU XONcount+4 
ShortFrame EQU LongFrame+4 
FrmCount EQU ShortFrame+4 
NoHandCnt EQU FrmCount+4 
CRCCount EQU NoHandCnt+4 
LenErrCnt EQU CRCCount +4 
BadDDP EQU LenErrCnt+4 
PPCount EQU BadDDP+4 
PPXoffCnt EQU PPCount +4 
Deferxmit EQU PPXoffCnt+4 
ABVarsEnd EQU DeferXmit+4 
ELSE 
ABVarsEnd EQU SendingIMUR+1 
ENDIF 


kkekk file MPP.A Kkkkk 


ee. section removed ... 


=e Se Se Se 


7; end of AALAP variables 


Sr ee 
sccCconfig - set up the SCC for AppleBus 


St lime edema s saeco bison np imebepacsne ees 


sccConfig LEA OpenTbl, AO 
CMP .B #SFF,MacTypeByte 
BNE.S @10 
BSR ToSCC 
LEA LOpenTb1,A0 
@10 BRA ToSCC 


ee. section removed ... 


ToSCCc MOVE.L SCCWr,A3 
IF PortA THEN 
ADDQ #ACt1,A3 
ENDIF 

@10 7 MOVE (A0)+,D0 

word : 

‘ BEQ.S CloseRTS 

MOVE.B DO, (A3) 
ROR #8,D0 
MOVE.B_ DO, (A3) 
BRA.S @10 


eee section removed ... 


Initialization tables 


o 
’ 
o 
’ 


; Entry format: .BYTE control-value, 


se 


=e “Se Se 


AO -> (common) open table 

Mac or Lisa? 

Branch if Mac - configure it 
Configure SCC to major settings . 
AQ -> Lisa open table 


; Configure SCC and return 


Point to SCC port B write registers 


; Add in port A offset 
; Get next register number / control 


; zero is terminator 


Put out register number 


; Pickup control word 


set -to SCC 
And keep going 


SccC Initialization table - common between Mac and Lisa 
control-reg-number 


7 Taken from the Zilog SCC Application note, 00-2957-02 


OpenTbl DC.B ResetOurPort, 9 
DC.B $44,4 
DC.B $0,2 
DC.B SCO,3 
DC.B SE2,5 
on 
DC.B $0,6 
DC.B $0,7 
DC.B $0,10 
DC.B $56,11 
DC.B $2,14 
7; enables 
DC.B $3,14 
DC.B 7Ci,3 
DE.B SEA, 5 
7 Interrupt controls 
DC.B MouselInts,15 
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=e =e Se Se =e 


($40 or $80) Reset port 

x16 clock, 1 stop, no parity 
Interrupt vector = $00 

Rx is 8 bits, disable Rx 

Tx is 8 bits, Disable Tx; DTR, RTS 


No address 

No Flag character 

NRZ 

Tx & Rx clock from BRG 

BRG source = PCLK, BRG off 


BRG on 
RX on 
Tx on 


enable DCD ints (for mouse) 


(continued on next page) 














VERSION 
MANAGER 


Now SVM supports local area 
networks and tracks source 
revisions made by multiple 
users in both single-site and 

multi-site configurations. 


Plus... 


e Archive Database Tracks Source 
(and Binary) File Revisions 


Audit Trail Reporting Provides 
Info on Project’s Development 
Revision Branches Allow Mul- 
tiple Courses of Development 


Revision Merging and Deleting 
Provide Flexibility in Archive 
Maintenance 


User IDs, Privilege Settings & 
Passwords Help Resolve Access 
Conflicts and Maintain Project 
Integrity 

Optional Text Compression 
Reduces Storage Requirements 


Menu Driven Shell Makes SVM 
Easy to Use 


Single-Site: $299.95" 
5-site LAN: $1000 (extendible) 


New program, called SMKgen, 
automatically constructs a 
dependency file by analyzing 
the files in a project. 


Plus... 


¢ Structured Language Used to 
Define Dependencies 


Rich Command Set with Over 
20 Different Statements 


Ability to Handle Nested Include 
Files and Library Dependencies 


Performance & Functionality not 
Found in UNIX Make or Clones 


SMK Only: $99.95" 
SMKgen: Add $50.00 


CALL TODAY 
1-313-662-8086 


Visa/MC/COD Accepted 
Dealer Inquiries Invited 
*Plus postage and Handling 


SEIDL COMPUTER ENGINEERING 


3106 Hilltop Dr., Ann Arbor, MI 48103 
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Listing One (Listing continued, text begins on page 18.) 
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se «Se 


=e 


LOpenTbl DC.B $00,14 


LOpenTbl DC.B $00,14 


rz xe =e fe 


. 
s 
. 
s 


LisaInitData DC.B 5, LDisTxRTS 


acInitData DC.B 5,MDisTxRTS 


reset external ints 

reset external ints (twice) 
Tx, Rx, Ext int enable 
Master Interrupt Enable 
*** End of table *** 


DC.B $10,0 
DC.B $10,0 
DC.B $13,1 
DC.B MIE, 9 
DC.W 0 


=e Se “Ss “Se Se 


IF RAM THEN Only need Lisa table if RAM-based 


se 


SCC initialization table for Lisa 

Port A uses PCLK (@4.0 MHz TTL) to drive BRG; Port B uses 3.6864 MHz Xtal 
IF PortA THEN configuration for Port A 

turn off BRG 

enable TX, RTS; DTR low 

TTL clock, tx and rx use BRG 

Use PCLK to feed BRG, BRG off 


=e Se 


DC.B $6A,5 
DC.B $56,11 
DC.B $02,14 


se Se Ss Se 


DC.B $03,14 BRG on 
DC.W 0 
ELSE configuration for PortB 


turn off BRG 

enable TX, RTS; DTR low 

Crystal clock, tx and rx use BRG 
Use crystal to feed BRG, BRG off 


DC.B $6A,5 
DC.B $D6,11 
DC.B $00,14 


=e “Se Se Be Se Be 


DC.B $01,14 BRG on 
DC.W 0 
ENDIF 


Mac initialization data (first is the post-transmitting SCC string) 


($60) Turn off drivers 

($41) Reset missing clocks flag 
(SDD) Enable receiver 

SR to enable SCC interrupts 

Delay to send out abort bits (3.2B) 


DC.B 14,ResetClks 
DC.B 3, EnbRxSlv 
DC.W $2100 

DC.B AbortDelay,0 
IF RAM THEN 


se Se, Se Se. Ne 


Lisa initialization data 


(SE2) Turn off drivers 

($41) Reset missing clocks flag 
(SDD) Enable receiver 

SR to enable SCC interrupts 

Just delay this much on Lisa (3.2B) 


DC.B 14,ResetClks 
DC.B 3, EnbRxSlv 
DC.W $2500 

DC.B 34,0 

ENDIF 


Se Se Se Se Se 


kkk kk file LAP.A aKKKKK 


se Se fe 


se 


=e Se Se Sse Se Se SMe hUBelhlUBM ele le le 
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LAP.TEXT - the LAP part of AALAP 


April-August, 1984 
Alan Oppenheimer and Larry Kenyon 


Rich Brown, Dartmouth College 
May 1987 


Version 1.2a6 Created qwDSptr to point at queued WDS 21 May 87 reb 
Version 1.2a5 Always check that TBMT is true before sending 19 May 87 reb 
Version 1.2a4 TintHnd, VBLHnd, RintHnd now call TxNextCh; only TintHnd 
clears interrupts (as it should be) 14 May 87 reb 

Version 1.2a3 Prefetching warning dialogs doesn't work; backed out 10 May 87 reb 
Version 1.2a2 tWDSptr now determines whether we're sending a frame; 

DoWarn now doesn't read the resource file 8 May 87 reb 

Version 1.2a1 Removed queueing from LAPWrite. LAPWrite no longer 

allocates memory, so it won't fail if called from 

interrupt handling. 19 Apr 87 reb 

Version 1.1b2 Changed noAnswer to -95 (so it can be handled like excessCollsns) 
LAPWrite returns noAnswer if AALAP not up; (30 Mar 87) 

GetNNNN returns noAnswer or PortNotCF; 

Changed LAPWrite to return ddpLenErr if too long 

Version 1.1bl Fixed PollProc to be more agressive about sucking chars 

from the SCC; added -1 SendChar value (sends Break); 

fix Initcursor bug in Dowarn 16 & 30 Dec 86 reb 

Version 1.1lal Output an Xoff if called by PollProc during an input message 

3 Nov 86 reb 

Version 1.0b2 Changed to set up SCC properly for Lisa 15 Oct 86 

(still has intermittent hangups, tho -- not diagnosed) 

Version 1.0bl1 Changed last_valid frame timer to 30 seconds; always send 

UR, even after un-matchable IM address 


Dr. Dobb’s Journal, October 1987 


a 


—- + 


~ a 


2 
, 


————————eeeee eee — 


fs 


Version 1.0a3 Fixed Status return buffer bug; SetBaud now takes actual 
baud rate; added GetLAPStatus call; copy entire message 
Version 1.0A2 Added alerts for NoAnswer, PortNotCf 


Version 4.2 
Version 4.1 
Version 4.0 
-. section removed ... 


COPYRIGHT (C) 1984 APPLE COMPUTER 


-__ eee 


-.- section removed ... 


(17 Jul 86 reb) 


Int handlers now do IUS etc. more carefully (4 Jul 86) 
Now escapes either parity Xon and Xoff (21 Apr 86) 
First cut at AALAP (26 Oct-14 Dec 85) 


; MReInit - Control call to reinit AALAP and the scc 


. 
f 


. 
s 


. 
tf 


gia gaan cians 


MReInit 


bsr.s AALAPWarm 
BRA AbusExit 


_———eknk rks eee eee eee 


; Warm start ourselves 
7; and return 


; AALAPCold -- cold start for AALAP; called only once 


. 
g 


—_———_—v—w—nwk LL — — 


AALAPCold 


o 
rf 
’ 


2 
s 


’ 


. 
s 


, 


® 
’ 


move.l #maxLAPFrmLen, DO 
_hewptr ,SYS 

bne.s WarmRTS— 

move.l AO, LAPInBuf (a2) 


Clear out LAP variables 


Sit. WDSPtr (a2) 

SL y tWDSptr (A2) 
CLF 1 LAPWrtRtn (A2) 
clr.w SysNetNum (a2) 
eit.b SysLAPAdadr (a2) 
eir.si SavePS (A2) 

sf AALAPup (a2) 

sf AALAPstuck (a2) 


; Setup SCC for AALAP 


BSR sccconfig 


AppleTalk 


. 
’ 
s 
’ 


f 


move #9600,D0 
bsr Set Baud 


AALAPWarm move.l Ticks,DO 


move.l D0O,LastXmit (a2) 
move.l D0O,LastRcv (a2) 
lea BusyBuf (a2) ,A0 
move.l1 A0O,BusyStash (a2) 
move.l AO,BusyFetch (a2) 


move.w #SFFFF, Last RxCh (a2) 


Citta twWDSptr (A2) 
Gift .t qwDSptr (A2) 
oir Ww TxCount (a2) 


sf RcevdXoff (a2) 

sf InpState (a2) 

sf Escin (a2) 

sf SendingIMUR (A2) 

sf stillBusy (a2) 

sf nFrmChr (a2) 

sf nCRC (a2) 

sf nXon (A2)} 
WarmRTS rts 

EJECT 


=e “Se Se Se 


Dr. 


Status - handle driver status request 
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; Allocate the input buffer (This should be alloc above BufPtr, not sysheap) 


7 get an AALAP input buffer 
7 from the system heap 

7 exit if bad 

7 Otherwise save its pointer 


; Configure the SCC for Async 


7 and set up for 9600 baud 


s 


; Reset all the LAP variables which don't irrevocably change the 
; State of the driver. This routine can be called any time, only 
; killing the current message(s) in progress. 


(continued on next page) 









Read what they’re saying about this 
popular program for prototyping and 
demo-making: 


“A winner right out of the start- 
ing gate. After you use DEMO 
once, you’ll wonder how you got 
along without it.”’ 

—PC Magazine 


“Everybody who writes soft- 
ware, either commercially or for 
in-house applications, should 
immediately order a copy. Period. 
No exceptions.”’ 

— Soft: letter 


Product of the Month 
—PC Tech Journal 


Thousands of developers and most 

of the largest and best known software 
companies are using this program. 
You can, too. Act now! 


NgTORIN 


The perfect companion to the Demo 
Program. The Tutorial helps you learn 
the ins and outs of its basic and ad- 
vanced features. Complete with a 96 
page manual containing step-by-step 
instructions, diskette, and function 

key template. \ 


Use 800-number for orders only. 
Questions, special shipping, etc., call 617-332-2240. 


No Purchase Orders. Massachusetts residents add 5% 
sales tax. Outside of the U.S.A., add $15.00. 


Requires 256K IBM PC/Compatible, DOS 2.0 or later. 
Supports Monochrome, Color Graphics, and EGA 
Adapters (text mode only). The Tutorial requires the 
Demo Program. 





SOFTWARE 
GARDEN, INC. 


Dept. D 
P.O. Box 373, Newton Highlands, MA 02161 
CIRCLE 314 ON READER SERVICE CARD 
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Status 


clean 


@0 


@1 


@2 


@3 


@4 


AbusExit 
AbusExAl 
Status) 
AbusRTS 


Prime 
kkk 


kak 


=e Se Se Se Se Se Se Se Re Be 


MGet NNNN 
tries 
endtime 


Get_NNNN 


@10 


On entry: 
On exit: 


_SUBR 
MOVE .L 
MOVEQ 
lea 
move .w 


LE 

CMP .W 
BNE.S 
move .W 
MOVE 
MOVE 


ADD 


“ MOVEQ 


MOVEQ 
MOVE.L 
MOVE .L 
DBRA 

MOVE 

bra.s 
ENDIF 


cmp.W 
bne.s 
Move.1 
move .b 
bra.s 


cmp .W 
bne.s 
move .W 
move .W 
bra.s 


cmp .w 
bne.s 
move .b 
move.b 
move.w 
eltst 


MOVE .L 
MOVE .L 


RTS 
SUBEND 


BCLR 
RTS 


EJECT 


SysNetNum. 


MPPVars,A2 

#StatusErr, DO 
CSParam(A0),Al1 
CSCode (AO) ,D1 


Stats THEN 
#GetStats,D1 
@1 
CSParam(A0O),Al1 
SR,- (SP) 
#SCCLockout,SR 


#StatsStart,A2 

# (StatsLgCnt-1),D0 
#0,D1 

(A2), (Al) + 

D1, (A2)+ 

DO, @0 

{SP} +,SR 

AbusExit 


#GetMyName, D1 
@2 

MPP+18, (Al) + 
MPP+22, (Al) 
@4 


#GetChar,D1 

@3 

Last RxCh (a2), (Al) 
#SFFFF, Last RxCh (a2) 
@4 


#Get LAPStatus,D1l 
AbusExit 
AALAPup (A2), (Al) + 


=e Se Se 8s Fe 


se Se Se 


se 


se Se Se 


=e Se Se Be 


=“e 


. 
f 
. 
f 
2 
, 
s 
, 


=e “Se Se 


no one better call this... 
A2 -> our variables 

Assume a status error 

point at the CSParam buffer 
and get the CScode 


Clear stats command? 
check for "What's my Name?" if not 
CSParam contains a pointer to buffer 


exclude interrupts to keep stats 
point to stats we keep 


zero for faster clearing 
return current value 
then zero count 


is this a "what's my name" call? 

go if not 

move Pascal string from front of driver 
to beginning the buffer (5 chars) 

and exit with good status 


is this a "get last char" call? 
Go. ti not 

copy the character (word) 

and flag the character 


is this a “get LAP status" call? 
go if not 
AALAPup? 


AALAPstuck (A2), (Al) +;AALAPstuck? 


AALAPbaud (A2), (Al) 
DO 


MPPDCE, Al 
JIODone, — (SP) 


"MYSTATUS' 


#DrvrActive,DCtlFlags+1(Al) ; 


A2 -> BPP variables 


s 
6 
, 


© 
, 
2 
, 


. 
’ 


What's the baud rate? 
return good status 


Make sure Al has DCE address 


This is how we exit (Prime, Control, 


this marks the AbusExit 
*** V2.0C Fix Mac ROM bug 


*** V2.0C Fix Mac ROM bug 


—_—_——_———_——— Te 


MGetNNNN -- Do the NNNN, using the current values of SysLAPAddr and 
Return bad status if it didn't work. 


Use them just as they are 
return from the control calls 


counter for the tries 
end time 


; randomize things 
Node number in DO 
Net number in Dl 
we're not up yet 
and we're not in trouble either 
tries counter (4 tries) 


set endtime to the current time+30 
remember the ending time 


DO = noErr (0) if we succeeded, 
PortNotCF (-98) or 
noAnswer (-95) if not 

bsr.s Get_NNNN 5 
bra.s AbusExit ; 
EQU -2 ; 
EQU -6 ’ 
_SUBR 6 
move.w Ticks+2, RandomSeed (a2) 
move.b SysLAPAddr (a2) ,DO - 
move SysNetNum(a2),D1 ; 
sf AALAPup (a2) ; 
sf AALAP stuck (a2) ; 
move #4,tries (a6) : 
move.l Ticks,D2 

add.l #30,D2 : 

move.l D2,endtime (a6) : 

moveq #qlapIM, D2 ; 


get the lap type 
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, Entry: 
> Exits 
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ee 





AO -> IQQelement 
Return status is 0000 


BadIoO 


; THIS WON'T MAKE ROMMABLE CODE! 





eee 


; MPutChar -- Kill output and send the char pointed to in the control call 


LE NGETE, 
if timed out waiting for TBMT 


_—_ Eee 





; MSetBaud -- send the (integer) value in the CSParamblk to SCC as its Baud 





move.w SysNetNum(a2),Dl ; get the Net number 
move.b SysLAPAddr(a2),D0 ; and the node number 
bsr SendIMUR ; and send it 
@20 Gir DO ; good status if things are OK 
tst.b AALAPup (a2) ; did the magic work? 
bne.s NNNNexit 7.go if So 
fst .b AALAP stuck (a2) ; is there an irreconcilable difference? 
bne.s NNNNstuck 
move.l endtime (a6) ,D2 
cmp.1 Ticks,D2 ; otherwise, check the timer 
bpl.s @20 ; loop if not timed out 
sub #1,tries (a6) 7; decr the counter ™ 
botis @10 7 loop if non-zero med = ald at ot ligs 
moveq #noAnswer,D0O ; They don't want to talk AND OTHER APPLE® Il MODELS 
bra.s NNNNexit 
NNNNstuck moveq #PortNotcCF, DO ; They talk but say bad things 
NNNNexit tst.w DO ;. set CC 
_Subend 'GETNNNN ' ; and return 
EJECT 


SendBrk equ $12 ; Sends Break (w/RTS) when sent to WR5 
MPut Char ware Bue. Chee Parallel Resonance with Damping. 
ane Abuskstt > and exit BASIC 213 sec. ISYS FORTH 20 sec. 
llgs ISYS FORTH 5 sec. 
Put Char _SUBR 
move.w CSParam(a0),D0O 7 get the character (in an integer) 
bmi.s @10 y 22 40! S Oy. 255; 
bsr SendChar ; output the character 
bra.s @20 ; and quit ISYS FORTH-83 is designed especially for 
scientific and engineering applications. Each 
@10 lea BreakTbl,A0 ; system includes versions for the Ilgs and for 
move.b #SendBrk, (AO) ; set the break bit in WRS5 older Apple lis. A version for older Apples 
bsr ToSee ; equipped with a 65802 or a 65816 is also 
move.l #10,A0 7 Walt. 10 ticks : 
included. 
_delay 
move #SEA, DO ; Enable Tx, DTR, RTS 
CMPI.B #SFF,MacTypeByte ; Mac or Lisa? F ; ; 
BNE.S @15 ; Branch if Mac (PortA & PortB are same) FASTEST. Uses subroutine threading with 
move #S6A, D0 ; Lisa doesn't assert DTR optional use of macros. 
@1iS5lea BreakTbl1,A0 
move.b D0, (AO) ; and turn the Break off TURTLE AND’ CARTESIAN GRAPHICS, 
bsr ToSCCc including character sets and double hires. The 
clr DO Ilgs version supports the new super hires 
graphics. 
@20 SUBEND 'MPUTCHAR' 
, FLOATING POINT WITH TRANSCENDEN- 
SPEaSED} aoe eee Ee ee ent, Pee eee TALS, single and double precision. And double 


precision integer math, including D*/. 


MACRO ASSEMBLER for the 6502, 65C02, 


Rate 65802 and 65816. 

; Entry: AO -> I0Qelement 

; Exit: noErr if aok MODEST MEMORY REQUIREMENTS. No 
; rel if requesting 19,200 baud on a Lisa, port A (cannot be done) llgs memory expansion is needed. 


3.5 AND 5.25 DISKS are supported. 


BaudConsts DC.B oy La : turn off BRG (so it doesn't count for 
as DC.B 0.12 : LSByte of BRG PRICE: $99. This includes all three versions 
msBaudVal DC.B 5: 13 ‘ MSByte of BRG of ISYS FORTH, a 150-page manual and all 
BaudSre DC.B 0,14 ; turn it on again, with proper baud of the above features. There is no charge for 
source shipping. 
DC.W 0000 ; end of constant string 
BaudTable DC.W 1200, 94,102 3 1200 baud, MacéLisaB , LisaA BRG Tee sae aS PO Box 2516, Sta A 
constants Champaign, IL61820 Phone: 217/359-6039 
DC.W 2400, 46,50 7 2400 baud 
DC.W 4800, 22,24 7 4800 baud Apple and Apple ligs are trademarks of Apple. 
DC .W 9600,10,11 ; 9600 baud 


Computer. 





(continued on next page) 
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#1 Lint for MS-DOS 


The professional 
diagnostic facility for C 





~ ASYNC APPLETALK 





Listing One (Listing continued, text begins on page 18.) 
DC.W 19200,4,-1 + 19200 baud (but not for Lisa Port 
A...) 
BaudTblEnd DC.W -1 ; sentinel 
MSet Baud move CSParam (a0) ,DO > get the (integer) baud rate 
bsr.s Set _Baud 
bra AbusExit 
Set Baud SUBR : DO contains the actual desired baud 
rate 7 
move.w DO0O,AALAPbaud (A2) : save the current baud rate 
lea BaudTable, AO ; point at the table 
@10 cmp .W (a0) , DO ; does it match? 
beq.s @30 7° Go tf 50 
addq.l #6,A0 
tst.w (AO) ; are we done? 
bpl.s @10 ; loop if we didn't hit the sentinel 
moveq #-1,D0 : 
bra.s @50 ; and bail out 
@30 moveq #3,D1 7 set up for Mac port A/B (PCLK/BRG on) 
CMPI.B #SFF,MacTypeByte ? Mac or Lisa? 
BNE.S @40 : Branch if Mac (PortA & PortB are 
same) 
IF PortA THEN ; Lisa ports A/B differ; Macs don't 
addq.l #2,A0 ; bump to Lisa PortA column 
ELSE 
moveqg #1,D1 ; Lisa portB works from Xtal, not PCLK 
ENDIF 
@40 move.w 2(a0),D0 7 get value BRG (-1 if 19,200 on Lisa) 
bmi.s @50 7 exit if negative 


: DO now contains the value for the BRG 


lea BaudConsts, a0 ; point at the constants 
move.b d0,lsBaudVal-BaudConsts (a0) ; save the LSByte of the BRG 

PC-lint lets you zap swarms of C ror #8, d0 
bugs and glitches at a time. move.b d0,msBaudVal-BaudConsts (a0) ; and the MSByte of the BRG 
Now you can uncover the quirks, move.b Serr ae eee eey >; and the source for BRG 
inconsistencies, and subtle errors ae at i, ane Seepee SE 
that infest your C programs... @s50 SUBEND 'MSETBAUD! 
waiting to bite you. PC-lint finds EJECT 


them all... or as many as you 
want ... in one pass. Set PC-lint 
to match your own style. 


Outperforms any lint at any price 
= Full K&R support and 





MWriteLAP -— write out a LAP packet 


=e Se Se Se Se 


Call: 
AO -> IO queue element 


se 


Al -> WDS. First entry must start as follows: 


common ANSI enhancements 
(even MS keywords) 
= Finds inconsistencies 
(especially in function calls 
across multiple modules!) 
= Modifiable library descriptions 
for 8 popular compilers ) 
= Super fast,one-pass operation | 
= Suppress any error message { 
= Zillions of options 


PRICE $139 » MC - VISA» COD 


» Includes USA shipping and handling. & 
Outside USA, add $15. In PA add 6%. 


{ for source addr ] 








A2 =-> local variables 


=e Se “Se Se Se Se Ve Be Ve Be Be 
+ 
| 
| 
! 
I 
! 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
+ 


Return: 
DO = error code 


NOTE: for MPP, first two data bytes must be length 


se “Se Se Se Se 


MWriteLAP MOVE.L 2(Al1),A0 ; AO -> first WDS entry 
ORDER TODAY, MOVEQ #LAPProtErr,DO ; Assume an error (2.3F) 
30-day guarantee TST.B  LAPType (AO) ; Make sure protocol is a valid one 
- Runs under MS-DOS 2.0 and up, and acai en . re sere if not 
: AmigaDOS. Uses all available memory. -B LAPDstAdr (AO) ,D2 - D2 = destination address 
bsr.s LAPWrite 7; Write out the packet 
met, Trademarks: PC-lint (Gimpel Software). MWRLAPex bra AbusExit 
"| MS, MS-DOS (Microsoft), Amiga (Commodore) EJECT 


IMPEL SOFTWARE 


3207 Hogarth Lane, 
Collegeville, PA 19426 


(215) 584-4261. 


—- 
seme are LTD EE Sa pile bree cnet 
“ ca) bags E Pat T° 5 mae 








and DDPWrite. 


Call: 


Al -> WDS (first entry must start as in MWriteLAP above) 
A2 -> local variables 


se Se Se Se Se Se Oe 


=e 


LAPWrite - send a packet out an Async 


port. 


Called both by MWriteLAP 
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D2 = LAP destination address 


Return: 
DO = noErr or the error code 
Uses D1-D3,A0,A1,A3 


Save the WDS passed in 
If AALAP isn't up, return noAnswer 
Next, check the length of the frame for <= 603 bytes; return error if bad 
If we're currently sending a frame: 
if it's an IM/UR, simply return (WDS will be sent when done) 
if it's not, then stop (somehow we got two frames to send from DevMgr) 
If interrupts are on 

Update PollProc pointer if it needs it 

Check that the AALAP is still working, sending IM/UR if necessary. 
Start sending the frame 
This code relies on the Device Manager for queuing. Here's how it works: 
General Rule #1: All operations initiated by the device manager 
ultimately return to the DevMgr through jIOdone. 


General Rule #2: All async operations which cannot complete immediately 
return thru a RTS. When the operation does complete, the (interrupt) 
routine can go thru jIOdone. 


Specific AppleTalk. Rule #1: All callers of LAPWrite have bra AbusExit 
code right after the call to LAPWrite. This eventually jumps to jIOdone. 


Specific AppleTalk Rule #2: Since they've taken care of the details, 

LAPWrite only has to remember two things: If we finish, we can return 

to our original caller (by jumping thru LAPWrtRtn to go to the device 

manager); If we don't finish, we should return to the caller's caller 
(which called the device manager in the first place). Whew! 





(SP)+,LAPWrtRtn(A2) ; save the caller's adrs 


LAPWrite move.l 
move.l Al,WDSptr (A2) ; and the frame we're asked to send 
move .W #noAnswer, DO 
tst .b AALAP up (a2) ; is the AALAP up? 
beq LAPWexit ; exit if bad 


=e Se “6 


Next compute the length of the WDS -- exit if it's bad 


move.l A1,A0 7; get the WDS pointer. 
Gita D2 7; D2 = number of data bytes in frame 
Giri D1 ; Dl = number of segments in WDS 
cmp .W #2, (a0) ; is first segment too short? 
ble.s LAPWexit y g6. LE It ts 

@20 tst.w (a0) ; is WDS length = 0? F 
beq.s @30 7; go if so 
add.w (a0), d2 ; add in this length 
addq #1,,ai ; incr the segment counter 
addq.l #6,A0 ; bump the WDS pointer 
bra.s @20 


. 
f 
2 
, 
. 
, 


D2 is the length of the message we've been asked to send 
Dl is the number of segments we've been presented with 
(Al still has WDSptr) 


@30 moveqg #LAPProtErr,D0 
tst.l dl 7 is Dl (number of segments) < 1? 
ble.s LAPWexit :; go if so (error) 
moveq #ddpLenErr, DO 
cmp.w #603,D2 ; is the length > 603 (3 LAP + 600 
data) 
bgt.s LAPWexit ; go if it's bad 
; we can try to send WDS in Al -- are we currently sending a frame? 
Est. 1 twWDSptr (a2) ; are we presently sending a frame? 
beq.s @40 ¢ go. 1£ not 
tst.b SendingIMUR (A2) ; is it an IM or UR? 
beq.s @35 *. go: iF not 
tst <1 qwDSptr (A2) ; is one already queued? 
bne.s @35 ; go if so (stop) 
move.l Al,qwWDSptr (A2) ; save the (queued) WDS pointer 





_statcount DeferXmit 
rts 
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FULL TEXT RETRIEVAL 


Searches 5,000 text files in 
5 seconds. 


The ultimate personal computer 
information retrieval software. 


Find any information created by the 
popular word processors or ASCII files, in 
seconds-without having to set up a 
database or do programming. Scan a 20 
Mbyte hard disk or a collection of floppies 
and instantly display all occurrences of a 
name, a product, a phrase, a number, or 
anything else you need to find. Save hours 
of manual searching. 


FEATURES 


* Comprehensive searches create a 
search request with any combination of 
AND, OR, NOT, and WITHIN (WITHIN 
refers to how far apart two words or 
phrases can be — up to 30,000 words). 
* Wild Cards, for example: type “micro*” 
to get (microcomputer, microcomputing, 
micro-processor, etc.). * Mark and Save 
retrieved information to create a new file. 
* Highlights search-words and phrases 
in retrieved text.* On Line Help Menus. 
* Find Function automatically displays 
search topic in the retrieved file.» Phrase 
Search, in addition to single word search. 


SYSTEM REQUIREMENTS MINIMUM 


¢ 384K ¢ Two Disk Drives e DOS 2.0 or 
above « Designed for IBM PC, XT, AT, 
compatibles, and most MS-DOS computers 


ZyINDEX Personal $95 
Searches up to 325 files 


ZyINDEX Standard $145 
Searches up to 500 files 


ZyINDEX Professional $295 
Searches up to 5,000 files 


ZyINDEX Plus $695 

Searches up to 15,000 files with LAN capabilities. 

30 Day Money Back Guarantee 

ZyLAB 
yRrn! 

233 East Erie Street 


Chicago, Illinois 60611 (312) 642-2201 
(800) 544-6339 For orders and information 
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ASYNC AP 





Listing One (Listing continued, text begins on page 18.) 
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AALAP 2in1l point at the string 


@35 pea 7 
SABFF ; and trap ‘em (in lieu of SA9FF) 


DC.W 


WDS in Al is OK to send now: if interrupts enabled, 
update PollProc and check time since last good frame 


@M se Se Se Se 


40 move 


SR,DO 
and #$70,D0 7; is the interrupt mask <> 0? 
bne.s SendWDSptr 7 just send it 


Update our local PollProc pointer 


se Se Ne 








move SR, — (A7) 7; save the state 
move #SCCLockout,SR ; turn off interrupts 
lea myPollProc,Al ; Al -> our PollProc 
move.l PollProc,DO 7; get the current PollProc address 
cmp.1 DO,Al ; have we already updated it? 
beq.s @50 7; go if we have 
move.l D0O,SavePS(A2) ; else update our saved copy 
move.l Al,PollProc ; and point the real PollProc at us 
@50 move (A7)+,SR 7; and re-enable 
; check for (Ticks - LastRcv) > 1800 - see if they're still there 
move.l Ticks,D0O ; have we received a frame recently? 
sub.l LastRev (a2) ,DO 
cmp.1 #1800,D0 ; (ticks - LastRcv) > 1800 (30 sec)? 
bmi.s SendWDSptr ; go if not (send it) 
bsr Get_NNNN 7 do the IM/UR stuff 
beq.s SendwWDSptr ; go if it worked 
move.w DO0O,-(SP) ; otherwise, save the status 
bsr DoWarn ; else, warn them 
move.w (SP)+,D0 ; and return bad status 
; Come here if we need to return immediately (status is in DO) 
LAPWexit move.1 LAPWrt Rtn (A2) ,A0 ; this'll get ‘em to IOdone 
jmp (AO) ; sooner or later 
AALAP2in1 de.b.24 
Get *‘AALAP -— TWO MSGS AT ONCE' 
align 2 
EJECT 
; SendFrame -- Starts off transmission of a frame 
; AO points to the WDS of the frame to send 
7 SendFrame sets all the pointers, etc. and then sends the FrameChar 
; (SA5)}. The Transmit Interrupt Handler ships all the remaining bytes 
; aS they are needed, 
SendWDSptr move.l WDSptr(A2),A0 7 get the WDS to send 
SendFrame move.w (a0)+,D0 ; DO = the length of the lst segment 
move.l (a0}+,al 7; al -> the first byte of lst segment 
move.l1 a0,tWDSPtr (a2) ; and save the pointer to rest of WDS° 
subq #2,D0 ; Finagle the length and address 
move DO, TxCount (a2) : of the segment (AALAP doesn't 
addq.l1 #2,Al1 : send dest and source node) 
move.l al,LAPFetch (a2) ; 
St nCRC (a2) ; we'll need to send a CRC 
st nFrmChr (a2) Z and a closing FrameChar 
sf EscOut (a2) ; clear the Escape flag 
chy OutputCRC (a2) 7 and the CRC 
moveq #qFrmChar, DO ; load a FrameChar 
bra.s SendScc ; and kick off the frame 
EJECT 





LAPSend -- send the next byte in the LAP frame 


=e “Se Se Se Se 


This routine checks to see if we're flow-controlled, if not, it 
gets the next char, accumulates the CRC, generates DLE's as 
required, and calls the routine to place the byte in the SCC. 


It works from LAPFetch(a2), and advances it (and decrements TxCount) 
as necessary. 


=e Se Se Me Oe 


(continued on page 74) 
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Step into the Future 


Be 


ce 


for 8086 family machines 


a 


= Some day, the a 
4 Modula-2 compilers 
“might have what we 
have NOW: 





e Compiles 5K lines / minute on PC/AT 
e Runs Sieve faster than Microsoft C V4.0 


ELEXIBILITY 


e Generates Microsoft standard objects 
e Supports 6 memory models + mixed model 
e Interfaces directly to other DOS languages 
(you don't have to throw 
out your C code!) FRy3 


powen 


e Full Modula-2 language 
+ Array and record constants 
+ Substrings and sub-arrays 

+ Tailorable procedure calling 


0S/2 and Microsoft © 
PLUS Windows compatible 


The generated code is compatible with OS/2 
and Microsoft Windows. Runtime libraries 
will be available soon. 


rook 
Stony bree Forest Road 


iINc Wilton, New Hampshire 03086 


SOFTWARE (603) 654-2525 
Compiler and DOS runtime $1 95 N 0 othe! 
library objects only: M odula-2 


Above plus editor, source 
debug, make utility, and 
runtime library sources: 


iler 
$3.45 cores close 


Add $5 shipping and handling in North America, $15 for over- 
seas orders. VISA and MasterCard accepted. 


Ds Special introductory offer: Purchase and pay for the complete 
system before Oct. 31, 1987 and get The Watcher execution pro- 
filer by Stony Brook Software — a $60 value — free. 
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PC Communications 
Tying You Up in Knots? 


Complicated screens, multi-level menus, windows 
on top of windows. It’s no wonder people are con- 


fused about communications. 


Not so with Move-It. Everythingis ¢ 
straight forward and easy to under- J 


stand. Say you 


want to send a file 


to another computer — simply type 
‘SEND? Want to call another - 


your mainframe, type ‘TALK’? ngs 


‘ rs 
system? Say ‘CALL’ To talk to NAG 


Of course, Move-It supports 


all the function 


Ss you require: 


multiple protocols, macros, 


wildcards, etc.., 


as well as 


advanced functions, like 
automatic file compression, 
scripting, on-screen help, 
and unattended operation. 
So if you’re tired of fighting 
your communications pro- 
gram, give us a Call. 


Woolf Software Systems, Inc., 
22048 Sherman Way, Canoga 


Park, CA 91303 


, (818) 703-8112. 


MOVE-IT- 


Move-It Program and Manual, 
$150.00. Call for free brochure. 
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GRAPHICS TOOLS 
FOR C and FORTRAN- ie 
PROGRAMMERS 


GRAFLIB 


PLOTHP 


PLOTHI 





FORTLIB 


Sr CBU Te TTT A 75.00 


FORTRAN-77 & C callable screen 
graphics routines. Supports CGA, EGA 
and Hercules Graphics Cards. 


Source Included $1 75.00 
Plotting routines for Hewlett-Packard & 
HPGL compatible plotters. Available 
in FORTRAN-77 & C. 

Source Included | 75.00 
Plotting routines for Houston 


instruments DM/PL compatible plotters. 
Availale in FORTRAN-77 & C. 


Source Included $1 25.00 
Add C-Like power to your FORTRAN-77 
Programs with our 120+ FORTRAN callable 
assembly and FORTRAN-77 Routines. 


Call or write for a Brochure 


SUTRASOFT 


P.O. Box 1733 
Sugar Land, TX 77487-1733 
(713) 491-2088 
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Listing One (Listing continued, text begins on page 18.) 


. 
, 
s 
’ 
. 
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LAP Send tst.b Revdxoff (a2) 
bne.s LAPSendRTS 


move 


ble.s LAPBadCount 
cmp.W #maxLAPFrmLen, D3 
bot.s LAPBadCount , 


move 
subq 
move 
move 


tst .b EscOut (a2) 
bne.s @15 


lea 
bsr 


cmp.b #DLE, DO 


If we sent a char, then we set SentChar(A2) to true 


are we flow controlled? 
go if so 


se Se 


TxCount (a2) ,D3 get the remaining length 
go if zero or negative 
check its length 


go if too big 


=e “Se Se Se 


el Ticks, LastXmit (a2) 
#1,D3 

-l LAPFetch (a2),a0 

-b (a0)+,D0 


remember when we last sent a char 
decr the count 


se Se Se Se 


and fetch the character, bumping the ptr 


are we escaping this char? 

go if yes -- it's already in CRC 
point at the output CRC Accumulator 
accumulate the un-processed char 


OutputCRC (a2),a3 
Next CRC 


Se Se Se Se 


test for DLE, Xon, Xoff, FrameChar 


Se Se 


beq.s @10 go if it's a special one 
cmp.b #F rameChar, DO 

beq.s @10 

move.b D0O,D1 


and.b #S7F,D1 


is it a XON or XOFF (either parity)? 


=e 


cmp.b #Xoff,D1 
beq.s @10 
cmp.b #Xon, D1 


bne.s @20 ; go if it's just a normal character 
@10 st EscOut (a2) ; remember that we're escaping 

moveqg #DLE, DO ; data to send is a DLE 

bra.s SendScc ; (and don't update the pointer/len) 
@15 eor #$40,D0 7 come here if we're escaping this char. 
@20 move.l a0,LAPFetch (a2) ; update the pointer 

move D3, TxCount (a2) : and the remaining length 

st EscOut (a2) ; 

; DO has the next char to send 
bra.s SendSscc 7 and send the character 


SendSCC -- sends DO to the SCC Write Data Register 


; Ass 
7; Returns DO = 0 
7 uses Al 
Sendscc st 
move 
IF 
addq 
ENDI 
move 
move 
LAPSendRTS rts 
LAPBadCount pea 


DC.W SABFF 


rts 
BadCntStr 

DC.B 

alig 

EJEC 


SendChar -- Sy 
Use Tick 


=e “Se Se Se Se 


umes that SCC is ready (TBMT is true) 


Sent Char (A2) remember we sent a char 


=e Se 


-l SCCWr,al point at the SCC Write Control 
PortA THEN 
oh: SACL, at 7; add in the offset for Port A 
F 
-b© DO,SCCData (al) 7 output the character 
gq #0,D0 ; clear the return status 
7; and return 
BadCntStr 


=e 


Trap 'em (not SA9FF) 


DC.B 10 
‘Bad length' 
n 2 
- 





nchronously wait for TBMT and send another character 
Ss to watch for 1/2 sec timeout, so we don't hang forever 





; Entry: DO = char to send 
y Baate DO = 0000 if OK 
7 DO = BadTBMT if we timed out (-3110) 
; AO,A1,D2 changed 
SendChar _SUBR 
move Ticks,D2 ; fail-safe counter 
add.l #30,D2 7 bump by 1/2 second 
@10 bsr.s Test TBMT ; look to see if we can send it 
bne.s @20 ; go if we can 
cmp.1 Ticks,D2 ; 


did we time out? 


Dr. Dobb’s Journal, October 1987 


ie | 


SAME DAY SHIPPING (USUALLY) 
QUANTITY ONE PRICES SHOWN for AUG. 23, 1987 


ICs PROMPT DELIVERY!!! 





OUTSIDE OKLAHOMA: NO SALES TAX 


DYNAMIC RAM 
1Mbit 1000Kx1 100ns $26.50 





bs] 
Oo 
bpl.s @10 7 go if not ERM {Mbit = 256Kx4 120ns 32.00 
move #-3110,D0 ; BadTBMT return code em 51258 *256kx1 100ns 6.95 
bra.s @40 ke 4464 64Kx4 150 ns 3.50 
Memes 41256 8 256Kx1 80ns 4.95 
@20 bsr.s SendSCc 7 else send it rai 41256 256Kx1 100 ns 4.40 
ram 41256 = 256Kx1 120ns 3.40 i 
@40 _SUBEND 'SENDCHAR' rae 41256 = 256Kx1 150 ns 3.20 BES 
; pag 41264 = 2-PORT_ 120 ns 5.25 Bee 
; Check state of TBMT - sets CCR to state of TBMT ma EPROM Ow 
* Daas cad Wem 27512 = 64kx8 200ns $11.25 Je 
‘ msm 27C256 8 32kx8 250ns 6.65 Bie 
Test TBMT movem.1 SCCRd, AO ; point at the SCC oie 27256 32Kx8 250 ns 9.50 oa 
IF PortA THEN wae) 27128 16Kx8 250 ns 4.95 
<< STATIC RAM ae} 
addq.l #Act1,A0 Pm 43256L-12 32kx8 120ns $11.95 
ENDIF 5565PL-15 8kx8 150ns 3.25 Bees 
btst #TxEmptyBit, (a0) : is the TBMT set? 
rts > return OPEN 6/2 DAYS, 7:30 am-10 pm: SHIP VIA FED-EX ON SAT. 
EJECT 
SAT DELIVERY | MasterCard/VISA or UPS CASH COD 
; INCLUDEDON | Factory New, Prime Parts Poo 
; rAbcEiven ey | MICROPROCESSORS UNLIMITED, INC. 
; TIntHnd -- this code catches the Tx Buffer Empty interrupts from Th:Sid Air $4/1 Ib BEGGS OK vaso" (918) 267-4961 
Fr:P-1 $10.50/2 Ibs a, OR. 
; the SCC and tries to send another character. If it could not No minimum order. Please note that prices are subject to 
; send a character, it clears the Tx Pending bit, so that the SCC SAOLCAT cori mmashy ber dotosba Wes vai otis hs emo es 
: will not interrupt again. Finally (in any case) it also resets Air @ $4.00, or guaranteed next day Priority One @ $10.50! All parts guaranteed 
: the highest interrupt under service (IUS) in the SCC to clear CIRCLE 105 ON READER SERVICE CARD 
‘ the interrupt before returning. eh Sais 
; Software 
7 On entry, AO/Al point to the SCC control read/write registers. Quelo® Development 
; Like a normal interrupt handler, it must preserve D4-D7 and A4-A7 WW Tools 





First release 1983 - MOTOROLA compatible - produces ROMable code, 


2 S-records, extended TEK hex, UNIX COFF. Portable SOURCE CODE. Na- 
TIntHnd move.l MPPVars sae r poi nt at the MPP Variables tive and cross versions on: ATARI ST, AMIGA, Masscomp, Sun, Apollo, 
7 


statcount XmitCount Charles River, VAX VMS and UNIX. 


68020 Cross Assembler Package 





sf SentChar (A2) ; Supports 68000, 68010, 68020, 68881 and 68851 
bsr.s TxNextCh ; try to send another char For CP/M 68K and MS/PC DOS - $750 
eotih Sent Char (A2) + did we? 68000/68010 Cross Assembler Package 
move.l SCCWr,Al ; otherwise reset TxPend 68000 ‘‘C’”’ Cross Compiler 
IF PortA THEN 
For MS/PC DOS by Lattice, Inc. - $500 
addq.l1 #Actl1,Al 
ENDIF 68020 Disassembler 7 
move.b #$28, (Al) } w Supports 68000, 68010, 68020, 68881, 68851 w 
TintIus bra DoIUS 7; and reset the highest IUS For CP/M 68K and MS/PC Dos - $495/295 
I Amiga and Atari ST - $119/79. CRDS UNOS $995/595 I 
r = 
: E 68000/68010 Software Simulator E 
M M 
? s For MS/PC Dos by Big Bang Software, Inc. - $285. VAX - $1900 s 
; TxNextCh -- try to send (in this order) 
? the next character of the segment, or Call Patrick Adams today: Quelo, Inc. 
; the next segme nt, or 2464 33rd. West, Suite #173 
Seattle, WA USA 98199 
; the CRC, or Site, Corporate, OEM licenses Phone 206/285-2528 
the trailing FrameChar. COD, Visa, MasterCard Telex 910-333-8171 


i ‘ h TM Quelo, Quelo, Inc. MS, Microsoft Corporation, CP/M, Digital Research 
If a complete frame which was initiated by the device manager has 
been sent, we should jump thru I0Done (asking the DevMgr for more CIRCLE 377 ON READER SERVICE CARD 


to do). Otherwise, (it was an IM or UR) we look to see if there 
is a frame from the DevMgr queued (in WDSptr). If so, we start PLOT TEXT ON 


sending it, otherwise, we simply RTS. ANY GRAPHICS SCREEN! 


YES, we said ANY Graphics Screen, even VGA! 
FINALLY! Xgraf is a super set of smart low level 
assembly graphic routines that you call direct- 


se Se Se Se Se Se 


s Se 


, 


TxNextCh move.l tWDSPtr(a2),D0 
beq.s TxNextRTS 


DO -> WDS in progress 
if nil, just exit (no message) 


=e Se Se Se 


tst.w TxCount (A2) is there more of the segment to send ly from Compiled BASIC. Xgraf replaces BASIC’s 
bne LAPSend if so, send next character confusing graphics statements with consistent, 
full featured calls specifically designed for the 
@5 move.l D0O,A0 ; otherwise, point at the WDS BASIC programmer. 
tst (a0) 7; check the next length : 
beq. s @10 7 go if it's zero (end of the frame) FINALLY! Xgraf is only $99.00 + $4.00 S&H 
move (a0) +,TxCount (a2) ; otherwise, update TxCount and We specialize in libraries and tools for Com: 
move.l (a0)+,LAPFetch(a2) ; and LAPFetch piled BASIC. Our catalog features the FINALLY! 
move.l a0,tWDSptr (a2) ; and update the tWDSPtr Family of Products and other top flight tools. 
bra LAPSend ; and send it off 
7 Call: 4 800 423-3400 
7; Now send the CRC (9:00 AM to 8:00 PM EST) 
: PA & AK call (412) 782-0384 
@10 tst.b nCRC (a2) : do we need to send a CRC? 
beq.s @20 7; go if not 
sf nCRC (a2) ; don't need one now KOMPUTERWERK 
move outputCRC (a2) , D0 ; get the two CRC bytes 851 Parkview Blvd. 
ror.w #8,D0 ; swap them Pittsburgh, PA 15215 





(continued on next page) 
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ASYNC APPLET. 


Listing One (Listing continued, text begins on page 18.) 


lea CRCBuf (a2) ,a0 7; point at the CRC Tx Buffer 
move DO, (a0) ; Save the CRC bytes 
move.l a0, LAPFetch (a2) ; and save the fetch pointer 
move #2,TxCount (a2) 7; Save the length, too 
bra LAPSend 7; and send them off 

; We've sent the CRC, now send the closing FrameChar 

@20 tst.b nFrmChr (a2) ; do we need to send a FrameChar? 
beq.s @30 <- O06 12 Hot 
sf nFrmChr (a2) : 
moveq #qFrmChar, DO 7 get SA5 
bra SendScc ; send it and exit 


We've sent a full frame, now clean up 


T@ se Se Se 


30 clr.w TxCount (a2) 
Scisst twDSPtr (a2) 


clear the TxCount 
clear the tWDSptr (no longer sending) 


=e “eo 


Now decide whether to return, wakeup the Dev. Mgr, or start a queued frame 


“ee Se Se 


tCSE.b SendingIMUR (A2) 

beq.s Not IMUR 

sf SendingIMUR (A2) 

move.l qQWDSptr (A2) ,D0 

beq.s TxNextRTS 

move.l D0O,A0 

bra SendFrame 
TxNext RTS rts 


were we sending an IM or UR? 
go if not 

well, we're not anymore 

is there a queued frame? 

go if not 


=e “Se Se Se Fe 


otherwise, start sending it 
otherwise, return (RTS) 


=e Se 


We weren't sending IM/UR so we must have finished a msg from the 
device mgr. Therefore, we should return to the Device Manager. 


. 
sf 
. 
’ 
. 
f 
. 
sf 
N 


oOtIMUR Chest qwDSptr (A2)} ; clear out the WDS 
moveq #0,D0 7 good return status 
bra LAPWexit ; and go thru LAPWrtRtn to IOdone 
EJECT 





RandomWord -—- generate a random number 


Calls 
RandomSeed (A2) = seed 


Se Se Se Se Se Se Ne 


Return: 
DO = random number (CCR set to it) 


Se Se 


se 





RandomWord MOVE RandomSeed (A2) ,DO ; DO = current seed 

MULU #773,D0 ; Times 773 

ADDQ #1,D0 F- Bide ds 

MOVE DO,- (SP) ; Save high byte on stack 

LSL #8,D0 ; Put low byte into high byte 
MOVE.B (SP)+,D0 ; And high byte into low byte 
MOVE DO, RandomSeed (A2) ; Set back in seed 

RTS 


EJECT 





“se 66 


VBL handler - come here every VBLtimer ticks. Used to check for long 
output puases; if we stop for > 1 second, we expermientally send 
the next character. 


AO -> VBL queue element 


=e 


=e Ns Se Ne 


VBLHnd MOVE #VBLtimer, VBLCount (AO) ; Better re-init VBL count 
MOVE.L MPPVars,A2 : A2 -> local variables 


Have we sent an Xoff (did we set nXon)? If so, try to send an Xon 


“=e Se Se 


tse. b nXon (A2) 

beq.s @20 

bsr Test TBMT 
beq.s VBLHndRTS 
moveq #Xon, DO 


do we need an Xon? 

go if not 

try to send it to the SCC 
quit if we couldn't send it 


Nai 3a 5G. Se 


bsr SendScc ; send an Xon 
sf nXon (A2) ; and clear the flag 
bra.s VBLHndRTS 7 and quit 


Check for long pause during transmit 


=e Se Se 


(continued on page 78) 
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TOTAL CONTROL 
with LMI FORTH" 


For Programming Professionals: 


an expanding family of 
compatible, high-performance, 
Forth-83 Standard compilers 
for microcomputers 


For Development: 
Interactive Forth-83 Interpreter/Compilers 


e 16-bit and 32-bit implementations 

Full screen editor and assembler 

Uses standard operating system files 

400 page manual written in plain English 

Options include software floating point, arithmetic 
coprocessor support, symbolic debugger, native code 
compilers, and graphics support 


For Applications: Forth-83 Metacompiler 

e Unique table-driven multi-pass Forth compiler 

¢ Compiles compact ROMable or disk-based applications 

e Excellent error handling 

e Produces headerless code, compiles from intermediate 
states, and performs conditional compilation 

¢ Cross-compiles to 8080, Z-80, 8086, 68000, 6502, 8051, 
8096, 1802, and 6303 

e No license fee or royalty for compiled applications 


For Speed: CForth Application Compiler 


e Translates “high-level” Forth into in-line, optimized 
machine code 
e Can generate ROMable code 


Support Services for registered users: 


e Technical Assistance Hotline 
e Periodic newsletters and low-cost updates 
e Bulletin Board System 


Call or write for detailed product information 
and prices. Consulting and Educational Services 
available by special arrangement. 







Laboratory Microsystems Incorporated 
f° Office Box 10430, Marina del Rey, CA 90295 
Phone credit card orders to: (213) 306-7412 


Overseas Distributors. 

Germany: Forth-Systeme Angelika Flesch, Titisee-Neustadt, 7651-1665 
UK: System Science Ltd., London, 01-248 0962 

France: Micro-Sigma S.A.R.L., Paris, (1) 42.65.95.16 

Japan: Southern Pacific Ltd., Yokohama, 045-314-9514 

Australia: Wave-onic Associates, Wilson, W.A., (09) 451-2946 
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it lies Cee 


SCRUTINY 
Advanced symbolic debugger. 


— Multi-language: compatible with Turbo Pascal, 
Microsoft Assembler, others. 
— Multi-DOS: works with all MS-DOS/PC-DOS 
computers. 
— Multi-level: debug at source level and machine level, 
separately or together. 
— Multi-display: debug character-mode and graphics- 
mode programs, with movable debug windows. 
— Multi-chip: support for 8086, 80186, 80286, 80386. 
— Fast 80386 “memory breakpoints” (stop program 
when specified variable is accessed or modified). 
Scrutiny/ Master $99.95 
for debugging Turbo Pascal, Microsoft Assembler, 
and other languages. 
Scrutiny/Turbo Special price! $49.95 
for debugging Turbo Pascal only. 
VISA/MC AMEX accepted. In Texas please add sales 
tax. Outside of North America add $10 per item 
shipping. 
M Street Software 
5400 E. Mockingbird Lane Suite 114 
Dallas, Texas 75206 
214-827-4908 


Information also available via our 24 hour 300/1200 
modem: 214-669-1882. 
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sent Reecal. 


Get real productive with REAL-TOOLS, a 
general purpose set of “C” development 
tools for UNIX™ and XENIX™. 


Get Graphics Too! !n addition to 
an advanced screen management system 
and superior windowing capabilities, REAL- 
TOOLS offers user-defined graphics for 
you to draw, save, recall, copy and animate 
symbols and panels. 


So if you’re developing applications for the 
real world — get real productive. Get 
graphics. Get REAL-TOOLS. 


$99 Binary only. $549 Library source. $999 Complete source. 


PCu 


Pioneering Controls Technologies, Inc. 
510 Bering Drive, Suite 300, Houston, Texas 77057 
(713) 266-8649 
™REAL-TOOLS is a trademark of Pioneering Controls Technologies, Inc 


™UNIX is a trademark of AT&T 
™XENIX is a trademark of Microsoft Corporation 
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Listing One (Listing continued, text begins on page 18.) 
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@20 tst.l twWDSptr (A2) 
beq.s VBLHndRTS 
move.l Ticks,D0O 
sub.l LastXmit (a2) ,D0 


do we have anything to send? 
return if not 


=e Me 


if (ticks - LastXmit) > 60 then 


"=e Se 


cmp #60,D0 let's try to send another char 

bmi.s | VBLHndRTS 

bsr Test TBMT ; is TBMT set (can we send another char?) 
beq.s VBLHndRTS 3-go°1lf not 

sf Revdxoff (a2) : 


_statcount XOFFTOcount 


MOVE #SCCLockout, SR exclude SCC interrupts (VIA priority < SCC) 


bsr TxNextCh ; otherwise, do another character 
VBLHndRTS rts 7; this'll restore SR et al 
eject 


se 





myPollProc -- AALAP PollProc addendum (predendum?) : 


se Se Se Se 


The AALAP needs a bit of a PollProc, since it will lose characters 

whenever the disk spins. Of course, all good Macintosh programmers 
know that the Printer Port (PortB) isn't polled by the disk driver 

since there's just not enough horsepower to go around. 


The PollProc is called by the disk driver to poll PortA. We 
execute a snippet of code before the real PollProc, and send an 
Xoff to the other end if we're receiving or processing a message 
while the disk is spinning. Then we transfer to the real PollProc. 


This routine preserves all regs except the SR. It does this by 
reserving a longword on the stack, and then stuffing the SavePS 
value in it. If it's zero, then there wasn't a PollProc, and we 
pop that value off the stack and return to the disk driver. If 
that value wasn't. zero, then the real PollProc's address will be 

on the top of the stack, and we go there. The disk driver's return 
address will be left on the stack, allowing the PollProc to return 
normally. 


se Se Se Se Me Me Ue le Ue Ue le le le Re le 


=e Se Se 


InpState and stillBusy must both be in the same word. The 
tst.w InpState(A2) below fails otherwise. 


=e 


se 





myPollProc subq #4,A7 7 Save space for a return adrs 
move.l A2,-(SP) 7; and save A2 
move.l MPPVars,A2 7; point at the MPP locals 
cet. nXon (A2) 7; have we already sent an Xoff? 
bne.s myPPexit 7 go if 50 
tst.w InpState (A2) ; are we receiving or processing a message? 
beq.s myPPexit 2: go af not 
movem.1 AO/A1/D0,-(SP) 7; Save regs 
@10 bsr StashSCCch * grab a char from the SCC, save it 
bne.s @10 7 loop 'til it's empty 


statcount PPCount 


bsr Test TBMT 7 is it OK to send the Xoff? 
beq.s @30 + go. LE not 
moveqg #Xoff,D0O 
bsr SendScc 7 send Xoff 
st nXon (A2) 7 and remember we need Xon 
statcount PPXoffCnt 
@30 movem.l1 (SP)+,A0/A1/D0 ; restore the regs 
myPPexit move.l SavePS (A2) ,4 (SP) 7 move address onto stack (sets CC) 
movea.l (SP)+,A2 7 restore A2 
bne.s @20 ; go if PollProc adrs <> 0 (use it) 
addq.1 #4,SP 7 else pop the (nil) adrs 
@20 rts ; and go there 
EJECT 


“ae Se Se 


ExtIntHnd -- catch the External or Status Interrupts from the SCC 


Checks for mouse interrupt, passes control if it is one, else resets 
the external/status SCC interrupts. 


se Se Se Se 


LL 





Ext IntHnd btst #DCDbit, D1 did the DCD bit change (mouse moved) 


beq.s @10 ego. LE-not 
move.l1 MouseVector,A3 ; else, point at the mouse handler 
jmp (A3) ; and go there 


Dr. Dobb’s Journal, October 1987 


—— i a 


——_- 
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@10 move.b #$10, (al) 
move.b #$10, (al) 
move.b #ResetIUS, (al) 
rts 
EJECT 


interrupt-time buffer. 


and return with a RTS instruction. 


chars in BusyBuf. 


Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ue Ne Se =e “Ss Se Se Se Se Sse Be Veo 


=e “ese %e 


RIntHnd - SCC receive interrupt handler 





reset ext interrupts 
(twice) 
Reset Highest IUS in SCC (to WRO) 


Called: AO -> SCC control read register 
Al -> SCC control write register 


This code is structured differently from the ABLAP code, since 

the arrival rate of the chars is so much slower for AALAP. Normal 
ABLAP routines call ReadPacket and ReadRest to get pieces or the rest 
of the frame as they arrive in real time. With AALAP, the character 
arrival rate is so slow that we copy the entire frame into an 


When we receive a good frame, we then pass control to the appropriate 
protocol handler, which then makes calls on ReadPacket and ReadRest to 
dole out the characters as necessary. 


Like all Mac interrupt handlers, it must preserve D4-D7 and A4-A7. 


Since the default DDP socket listener is quite slow (3-4 msec to process 
a newly received message) we set up a buffer to contain characters 
which arrive during the time the socket listener is in control. We 

set a flag (stillBusy) to indicate that we're still busy, and save the 





SpIntHnd 
RIntHnd move.l MPPVars,A2 
_statcount RevIntCount 
interrupts 
RIntHnd10 bsr NextChar 
SCC) 
beq RIntRTS 
and #SOOFF,DO 


move.w D0, LastRxCh (a2) 


TH eo Me Se 


is move.b DO,D1 
and.b #S7F,D1 
cmp.b #Xoff,D1 


bne.s @20 
_statcount XOFFcount 
st revdxoff (a2) 


bra.s RIntHnd10 


@20 cmp.b #Xon,D1 
bne.s @30 
_statcount XONcount 
sf revdXxoff (a2) 
bsr Test TBMT 
beq.s RIntHnd10 
bsr TxNextCh 


bra.s RIntHnd10 


Watch out for framing characters 


@ re Se Se 


30 cmp.b #FrameChar, DO 
beq.s GotFrmch 
tst.b  InpState(a2) 
beq.s RintHnd10 
EJECT 


Se Se Se 


Check for flow control from other side 


se Se Se Se Se 


=e Se 


se Se Se Se 


se Se Se fe 


A2 -> driver variables 
remember the number of Rcv 


handle next char (from BusyBuf or 
quit if no data 


use only eight bits 
remember the char 


check for either parity Xon/Xoff 


is it a control-S? 

go if not 

count it 

and remember we received Xoff 
loop for another char 


or is it a control-Q? 
go if not 


is the tx empty? 

loop if not 

otherwise, start up Tx side again 
loop for another char 


is it a framing character? 
go if so 

are we in a frame? 
loop for another char 


Maybe this is a data char -- check the frame length 


cmp #MaxLAPFrmLen, rcvdlen(a2) ; is the frame too long? 
bls.s @50 2 -9o 1f 26's OF 

_statcount LongFrame 7 remember the long frame 

sf InpState (a2) 7 go idle 


bra.s RIntHnd10 


: We have a real char -- un-escape it 
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loop for another char 
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68020 


UNIX COMPATIBLE 
MULTIUSER SYSTEM 


The MPULSE Model 20 
Multi-Processor Design: 


Separating application processing from I/O is a well 
understood goal in multiuser supermicrocomputer 
design. As the real UNIX system bottleneck is disk I/O 
bandwidth, not raw processor speed, LPC has spent a 
great deal of time and development effort in optimizing 
disk I/O throughput. The result is a disk I/O 
subsystem unparalleled in the under $20,000 
microcomputer class. 


A fully asynchronous, high speed DMA channel 
links the MC68020 to the dual MC68000 I/O 
processors. A full 2 Mbytes of I/O processor memory 
is available for disk caching. The disk cache utilizes a 
least recently used, delayed write algorithm to achieve 
hit rates exceeding 90%. 


In addition to disk caching, LPC has extended the 
conventional UNIX caching mechanism with a new 
virtual caching technique, implemented in the kernel 
itself. The Dynamic Kernel Cache (DKC) distributes 
available memory between user processes and the 
internal UNIX cache. This dynamic allocation 
technique allows a much more efficient use of main 
memory with cache efficiency increased to over 80%, 
much higher than the conventional UNIX caching 
mechanism. 


Operating System: 


The MPULSE Model 20 hosts LPC's System V 
operating system, derived from the industry standard 
UNIX System V. The MPULSE System V port is 
tailored to complement the MPULSE hardware while 
retaining compatibility at all levels with the generic UNIX 
System V operating system. Areas of optimization and 
additional features include: 


@ Full demand-paged virtual memory 

@ Kernel portions of the terminal and mass storage |/O 
disciplines are distributed to the appropriate |/O 
processors 

@ Berkeley enhancements 

@ Dynamically distributed ramdisks 

@ On-line Winchester disk bad block replacement 

@ On-line device configuration 

@ True multisector I/O for streaming tape operation 

@ Support for implementing concurrent operating 
systems 


‘| @ General purpose user-accessible SCSI device driver 


@ Automatic bi-directional modem support 
@ MWindows windowing capability 


Base System Includes: 


@ 16 MHz MC68020 host processor 

@ DUAL 12 MHz MC68000 I/O sub-system 

@ 4 Mbytes main memory 

@ 2 Mbytes of dedicated disk cache memory 
@ Demand-Paged Virtual Memory 

@ Sophisticated LRU caching algorithm 

@ Dynamic Kernel Cache (DKC) 

@ MWindows 

@ 50 MByte hard disk expandable to 0.5 gigabytes 
@ 800 Kbyte floppy drive 

@ 60 Mbyte cassette tape backup 

@ 8 serial ports expandable to 40 serial ports 
@ LPC System V derived from UNIX System V 
@ Berkeley Enhancements 

@ NCR Tower object code compatibility 


Base System Price: 


$5995.00 
Call (214) 340-5172 


Warranty: 
90 day (extended warranty available) 
15 day money back evaluation period 


LPC Logic Process Corporation 
10355 Brockwood Road Dallas, Texas 75238 


DKC and MWindows are trademarks of LPC. 
UNIX is a trademark of AT&T. 
Tower is a trademark of NCR. 
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Cross Assemblers 


Universal Linker 
Powerful Librarian Listing One (Listing continued, text begins on page 18.) 


ASYNC APPLETALK 





PC/MS DOS, micro VAX, aso gin eee bb 
VAX VMS, VAX UNIX/ULTRIX pne.s  @90 


st EsclIn (a2) 
bra.s RIntHnd10 


is it a DLE? 
go if not 
remember we've seen an escape 


=e Se Se 


¢ Targeting over 30 Microprocessors 


morkeccsotle ds segs ; This is a data char -- complete any escaping, accumulate the CRC 
Absolute or Relocatable Code ; 

Compatible with all Assemblers @90 tst.b  EscIn(a2) 
Conditional Assembly beq.s @100 

$295 up for Complete Packages eor #$40,D0 


should we escape it? 
go if not 
xor with $40 


se Se Se Se 





sf Escin (a2) and clear the escape flag 
one etesttony 7 now we've got a good char 
Berges contr: @100 lea inputCRC (a2) ,a3 7; point at the CRC accumulator 
Fy bsr NextCRC , update the CRC accum using byte in 
Sore = 2),a0 > point at th t £ har in 
Lansdale. PA 19446 U.S.A. i move.l LAPStash(a2),a 7 point a e nex ree c 
Enertec inc. buffer 
Lemay iro meted move.b DO, (a0)+ ; Save the char in the buffer, bump the 
pointer 





addq #1,rcvdlen (a2) 
cmp #3, rcvdlen (a2) 
bne.s @110 

move.l LAPInBuf (a2),a0 


increment the bytes-read counter 
have we read in exactly three chars? 
go if not 

otherwise point at the LAPInBuf 
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@110 move.l a0, LAPStash (a2) and update the pointer 
bra RIintHnd10 loop for another char 
RIntRTS bra DoIUS ; reset Highest IUS and return 
Ch i 
SI UvG) ; We've discovered a FrameChar -- check if we're done or just starting 
GotFrmch tst.b InpState (a2) 7; are we in a frame? 
our beq.s FrmStart 7; go if not (we will be) 





found closing char 
go if frame is long enough 

else, flag that we got a short frame 
and fall into FrameStrt 


FrmEnd cmp #2, rcvdlen (a2) 
Address? eerie arcs 


_Statcount ShortFrame 





Se Se Ne Me 


; We're in a frame now! 
To change your address, attach ; 

FrmStart lea toRHA (a2) ,a3 * a3 -> RHA (holds lst 5 bytes) 
your address label from the cover move.b sysLAPAddr (a2), (a3)+ copy the node number 


move.b sySsABridge (a2), (a3)+ ; and the bridge address 


move.l a3,LAPStash (a2) ; remember where next byte goes 
of the Magazine to this Coupon st InpState (a2) ; change the InpState to in_msg 
' . sf EscIn (a2) 7 and we're not escaping data 
and indicate YOur New address clr InputCRC (a2) 7 no CRC yet 
cir rcevdlen (a2) 7; no data, either 
below. bra.s  RIntRTS 
EJECT 
; We received a complete frame -- check the CRC 
Name : 
CheckCRC 
sf InpState (a2) ; we're not ina frame now 
Address tst InputCRC (a2) ; is the CRC zero? 
beq.s LAPDemux 3° go tf 35> 2S-OR 
_statcount CRCCount 7 save the statistic 
Apt. # bra.s  RIntRTS 7 and exit 


Come here on receipt of a good frame. We've cleared the InpState 
to indicate we're out of a frame. 


City 


se Se Se Fe 


Zip LAPDemux _Statcount FrmCount log another good frame 


move.l Ticks, LastRcv (a2) 7; remember this frame's arrival time 
lea 2+toRHA (a2) ,a3 7 a3 -> LAP type byte 
MOVE.B (A3)+,D0 ; Get the LAPtype, bump pointer 
: : Cst DO 
Mail to: BMI LAPIn ; If minus, it's a LAP packet 


Dr. Dobb’s Journal, 


Got a data packet - look for a protocol handler 


se Se Se 


PO Box 27809, tst.b AALAPup (a2) ; but first, is the AALAP up? 
beq.s @60 7 go if it's not up 
San Diego, CA 921 28 MOVEQ # (LAPTb1Sz-1) ,D2 ; D2 = index into active protocols list 
@30 CMP .B Protocols (A2,D2),D0O ; Match? 
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Got a 


=e Se Se 





DBEQ D2,@30 : (If none, D2 is negative - 3.1F) 


LSL.W #2,D2 Make D2 a longword index into Handlers 
protocol handler -- Compute the desired length of the message in Dl 


move.b (a3)+,D1 Get MSByte of the length into Dl 


and #3,D1 ; mask for two lsbits 
LSL #8,D1 ; Move to proper position 
MOVE.B (a3)+;,D1 ; Dl = total length 
move revdlen (a2) ,D0 : DO = total chars received (DDP + LAP 
+ CRC) 
subq #3,D0 ; disregard LAP type and CRC 
cmp D1,D0 + are they equal? 
beq.s @40 2 80 24:89 
_statcount LenErrCnt ; save the stats 
bra RIntRTS ; and exit 
@40 SUBQ #2,D1 : Subtract 2 for length bytes 
move d1,RcvdLen (a2) : and remember the number of unread chars 
EJECT 
; At this point, Handlers (A2,D2) points to the address of the protocol 
: handler for this packet's protocol (or D2 is negative if there is 
> none -- 3.1F). JMP to it with the following: 
: AO,Al = SCC read/write addressses 
; A2 = ptr to driver locals 
; A3 = ptr into the RHA (first 5 bytes loaded) 
: A4 will be the address of our read packet routine 
; A5 will be saved for handler's usage (until packet's all in or error) 
: Dl = length of packet still left to read (from header) 
; The protocol handler must obey the following conventions: 
: 1) It must preserve, across the call, AO-A2, A4 and Dl 
: 2) A6 and D4-D7 must be saved and restored if used. 
: 3) It must JSR to the routine at (A4) or 2(A4) with registers as defined 
; there, for the purpose of reading more of the packet and eventually 
: resetting the SCC for the next interrupt. 
Be ee aaa lt ee penne eigen 
TST D2 : Is there a protocol handler? (3.1F) 
BMI.S @60 ; Branch if not 
bsr DoIUS ; reset Highest IUS 
MOVEM.L A4/A5,SaveA45(A2) ; Save A4 and AS (may be free time now) 
move.l LAPInBuf (a2),a4 ; point at the next char of the msg 
move.l A4,LAPStash (a2) ; (we can snatch A4 for a few instrs) 
MOVE.L Handlers (A2,D2),A5; A5 -> protocol handler 
LEA ReadPacket, A4 ; A4 -> ReadPacket 
st stillBusy (a2) : remember we're processing a frame 
move.w VSCCEnable(A2),SR ; re-enable so we can catch more chars ({!) 
JSR {A5) : Call the protocol handler 
move.l MPPVars,A2 ; point at our variables 
cmpa.l SaveA45 (A2),A4 ; paranoia land -- make sure they've left 
bne.s @45 : things as they should be 
cmpa.l (SaveA45+4) (A2),A5 
beq.s @50 
@45 pea BadA4A5 
DC.W SABFF : print the text (in lieu of SA9FF) 
@50 sf stillBusy (A2) : and now we're not in a frame 
rts : exit the interrupt handler 
: No handler, just log the error 
@60 _StatCount NoHandCnt ; Count packets without a handler 
bra RIntRTS ; and exit 
BadA4A5 DC.B LT ; debugging only 
DC.B "AALAP - Bad A4/A5' 
align 2 
EJECT 
a ee 
NextChar -- Handle the next char 


=e Se Se Se Se Se Fe fe 


This routine does two things: If we're awaiting a full message, then 
it gets the next character. That char may have arrived from the SCC, 
or it may be a char left in the BusyBuf. (Chars in the BusyBuf take 
precedence.) 


(continued on next page) 
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Listing One (Listing continued, text begins on page 18.) 


If we're still processing the previous message (stillBusy set true), 
then all characters which arrive will be placed in BusyBuf, and the 
associated pointers updated. (Note: myPollProc also inserts data 
into the BusyBuf, but it doesn't set stillBusy.) 


Uses AO,A1,D0 
Assumes A2 -> MPPVars 





Returns Z if no character 
NZ if char present (char is in 8 lsbits of DO) 


——— 


"es “s “es Se “Se Se Se Se Be Be Se & 





NextChar . _SUBR 
tat ub stillBusy (A2) ; are we still processing the prev. 
frame? 
bne.s @30 7 go if we are 
bsr.s GetBusyChar ; else, look for a char from BusyBuf 
bne.s @50 7 quit if we got one 
bsr.s  GetSCCchar 7 else check the SCC 
bra.s @50 7 and quit 
@30 ‘bsr.s StashSCCch ; Stash a char from SCC into BusyBuf 
bne.s @30 7 gO back and look for more 
@50 _SUBEND 'NEXTCHAR' 


'_assumeEq BusyStash,BusyBuf+16 ; otherwise cmpa.l AO,Al (above) 
fails 


GetBusyChar _SUBR 
move.l1 BusyFetch(A2),D0 
cmp.1 BusyStash (A2) , DO 
bne.s 10 
lea BusyBuf (a2) ,a0 
move.l a0,BusyStash (A2) 
move.l a0,BusyFetch (A2) 
moveq #0,D0 


get a char from the BusyBuf 

get the fetch pointer 

is it the same as the stash pointer 
go if not (more chars to do) 

; point at the busy buffer 

and save it in the BusyStash 

and BusyFetch 

; Clear the CC 


*. se “Se *& “=e Se Se Se 


bra.s @20 





@10 move.l D0,A0 ; there's still more to take 






386|DEBUG 


¢ A symbolic debugger for 80386 32-bit 
protected mode programs which run 
under Phar Lap’s 386|DOS-Extender™ 


¢ Breakpoints, data watchpoints, and built-in 
disassembler 





The Ss 
Heap Expander 


dynamically allocates data storage 
space in expanded memory 
e simple interface 
° up to 8 megabytes 
of heap space 
with appropriate hardware 
libraries and source code for: 
—Microsoft C, Lattice C, Turbo C, 
Mark Williams C, and others 
— Turbo Pascal 
— Logitech Modula-2 
requires IBM PC, XT, AT, or close 
compatible with LIM-standard 
expanded memory and MS—DOS 
or PC—DOS ver. 2.0 or above 
MC/VISA/COD call 
1-800-248-1045 x100 (US) 
1-800-952-5560 x100 (Idaho) 













¢ Fully compatible with Phar Lap’s 386|ASM/LINK, 
the MetaWare 80386 High C™ and Professional 
Pascal™compilers, and the Green Hills 80386 
Fortran compiler 






e Runs on all DOS-based PCs equipped with an 
80386 CPU, including the Compaq® DESKPRO 
386™, the IBM®PS/2™ Model 80, and most 
accelerator cards, including the Intel Inboard™ 
S86/AT 


¢ $195—Available today 


(617) 661-1510 


Phar Lap Software, Inc. 
60 Aberdeen Ave. 
Cambridge, MA 02138 








The Tool Makers 





P.O. Box 8976 
Moscow, Idaho 83843 
(208) 883-4979 


“Idaho residents add 5% sales tax ~ 






“The 80386 Software Experts” 
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Sea a a 


a ae ee a 






move.b (A0)+,D0 









or.w #$100,D0 
lsbits) 


EJECT 













addq.l #Actl1,A0 
addq.1 #Actl,Al 
ENDIF 









beq.s @20 
move.b #1, (al) 
nop 

move.b (a0),D0 
and #$70,D0 
beq.s @10 


nop 
move.b #1, (al) 
nop 










nop 


or.w #$100,D0 
@20 rts 


. 
s 





StashSCCch bsr.s 


move.l A0O,BusyFetch (A2) 


@20 _SUBEND 'GETBUSYC' 


> GetSCCchar and StashSCCch both are called by RintHnd and myPollProc 
GetSCCchar looks at RCA on the proper channel, and returns the char 
in DO if there was one (with CC set <> 2); else it returns CC = Zz. 


etsCCchar movem.l1 SCCRd,A0O/A1l 
IF PortA THEN 


btst #RCAbit, (AQ) 


move.b #ResetErr, (al) 


move.b #$13, (al) 


_statcount OVRcount 
@10 move.b SCCData (a0) ,D0O 


GetSCCchar 


get the byte 
update the pointer 
make CC <> Z (must preserve 8 


=e Se “Se 


LIbt] (A2 will -> MPPVars) 


; forces AO/Al to point at SCC 


: is there a char? 
go if not 
; point at the error bits from RR1 


se 


get them (Overrun,Framing) in DO 
> any error bits? 

go if not 

: else send Error Reset to WRO 


- =e 8 =e 


; point at WR1 


“eo 


count ‘em 
> and get the data (EVEN IF ERROR!) 


- =e 


. 


+: StashSCCch -- take a char from SCC, save in BusyBuf if there's space 
; Return Z if no char or no space; NZ otherwise 


: look for a char in the SCC 





SemiDisk* $a: 


has an —attractives 
personality. 


“A while back | got a SemiDisk to help me with 
my database work. A SemiDisk is like a RAM- 
disk only a whole lot better. It doesn't sit in my 
main or EMS memory, and, using the Battery 
Backup, It's like permanent storage. 


“That SemiDisk makes light work of the jobs 
that were sending my hard disk to an early 
grave. And SemiDisk has no head to crash; 
no moving parts to wear out. With all the time 
it saves me, | figure it paid for itself in just a 
couple of months. 


“Then | heard programs like Microsoft Win- 
dows could use my SemiDisk for temporary 
files instead of using EMS. So | moved them 
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Peet eee ee ee ee 


over to the SemiDisk, too. The quiet speed of 
it is almost elegant! 


“My boss wanted to try my SemiDisk on the 
company LAN server, but | told him to get his 
own. A couple of days later, he was wearing 
a grin as big as mine. | guess he likes his 
SemiDisk too. 


“One morning | booted up my computer and 
there was my word processor waiting for me 
on the SemiDisk. | swear | didn’t put it there! 
After | tried it, | knew it was there to stay. 


“Meanwhile, I've found a new use for my hard 
disk, too. It’s great for backing up my 
SemiDisk!” 
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and set up for int on all rx chars 


» set the SR (to NZ -- there's a char) 












(continued on next page) 
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ee rr | 
sete ck 


1/O mapped SemiDisk goes in standard PC, XT or 
AT expansion slot. Priced at just $495 for 512K, 
$795 for 2Mb. Battery Backup $130. Up to 8Mb 
per drive. Call or write for further information or 
to place an order. 


SemiBisk 


End the waiting. 





SemiDisk Systems, Inc. 
P.O. Box GG 
Beaverton, OR 97075 
(503) 626-3104 


wa = iit, 
VISA eee 








SQL Compatible Query System adaptable to any 
operating environment. 





CQL Query System. A subset of the Structured 
English Query Language (SEQUEL, or SQL) 
developed by IBM. Linked files, stored views, 
and nested queries result in a complete query 
Capability. File system interaction isolated in an 
interface module. Extensive documentation 
guides user development of interfaces to other 
record oriented file handlers. 










Portable Application Support System 





Portable Windowing System. Hardware 
independent windowing system with borders, 
attributes, horizontal and vertical scrolling. 
User can construct interface file for any 
hardware. Interfaces provided for PC/XT/AT 
(screen memory interface and BIOS only 
interface), MS-DOS generic (using ANSI.SYS), 
Xenix (both with and without using the curses 
interface), and C-library (no attributes). 













Screen |/0, Report, and Form Generation 
Systems. Field level interface between 
application programs, the Query System, and 
the file system. Complete input/output 
formatting and control, automatic scrolling on 
screens and automatic pagination on forms, 
process intervention points. Seven field types: 
8-bit unsigned binary, 16 bit signed binary, 16 
bit unsigned binary, 32 bit signed binary, 
monetary (based on 32 bit binary), string, and 
date. 













Including Source Code 
$395.00 


File System interfaces include 
C-tree and BTRIEVE. 









HARDWARE AND FILE SYSTEM 
INDEPENDENT 









MAcHINE 
INDEPENDENT 
SOFTWARE 


CORPORATION 


1415 NORTHGATE SQUARE #21D 
RESTON, VA 22090 


VISA/Master Charge accepted 


(703) 435-0413 


*C-tree is a trademark of FairCom 














IBM, SEQUEL, PC, XT, AT are trademarks of IBM Corp. 
MS-DOS and Xenix are trademarks of Microsoft Corp. 


CQL and the COL logo are trademarks of 
Kurtzberg Computer Systems. 
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Listing One (Listing continued, text begins on page 18.) 


beq.s @50 go if none 


lea BusyStash(a2),Al ; point at the BusyStash pointer 

move.l (al),A0 ; and get it 

cmpa.l1 A0O,Al ; will this be too many chars? 

beq.s @50 ; yes, simply exit (and ignore the char) 

move.b D0, (a0)+ ; Save the char, and bump the pointer 

move.l AO,BusyStash (A2) ; and update the pointer 

or.w #$100,D0 7 set the CC <> Z (‘cause we took one ) 
@50 rts 7; and return 

EJECT 


7 DoIUS -- reset Highest IUS 
agers sa ae cae th, fs Seok eh eee P  Pesiny 
DoIUS _SUBR 
move.l SCCWr,Al ; point at the SCC write regs 
IF PortA THEN 
addq.l #Actl,Al 
ENDIF 
move.b #ResetIUS, (al) 7 Reset Highest IUS in SCC (to WRO) 
_SUBEND 'DOIUS | 
EJECT 


BO 
; LAPIn - it's a LAP control packet. 
; DO = LAP type 

; A3 -> remainder of the frame 


Note: for IM/UR frames, the net number (2 bytes) is at (a3), 
but the node number (1 byte) is the first byte in LAPInBuf 


tapes eSpace last a SP ae eg a 
Check for IM 


=e “Se “Ss Se Se Se 


LAPIn move (a3),D1 7 Dl = Net number (a3 sb even) 
move.l1 LAPInBuf (a2),A0 ; point at first char in input buf 
move.b (a0),D2 D2 = node number 
cmp.b #lapIM, DO is. 4t).an- iM? 


se 


bne.s @60 go if not 
move D2,D0 DO = node number 
sf Revdxoff (A2) SO we can start sending 


bsr.s CheckIM 
bsr.s SendIMUR 
bra.s @80 


figure out the net and node to send 
send ‘em 


=e “Se Se Se Se Se 


s 
f 


7; Check for UR 


@60 cmp.b #lapUR, DO 
bne.s @80 
move D2,D0 
bsr.s CheckUR 


is it a-:UR? 

go if not 

DO = Node number (D1 = Net number) 
check these values, return <> 0 if OK 


Se Se Se Be Se Fe 


sne AALAP up (a2) if non-zero, then we're up 
@80 “rts and return 
_AssumeEq lapENQ, $81 e (1) 


_AssumeEq lapRTS, lapENQ+3 ; (2) 
_AssumeEq lapCTS, lapRTS+1 ; (3) 
EJECT 


nee tie ep eye Singin at nada Sasa ees eg ST a he 


; CheckIM -- check the received IM frame, compute UR response 


Dl = their network number 
Exit: DO,D1 = node, net number for the UR 
: D2 = qlapUR 
Changes AO,A1,A3, DO-D3 


; Entry: DO = their node number 
, 
r . 


CheckIM move.l #0,A0 7 return nil sometimes 
move.w SysNetNum(a2),D2 7; D2 = our Net number 
beq.s @10 ; go if so -- check the node numbers 
move D2; Di ; else, use our net number 

@10 move.b SysLAPAddr (a2) ,D3 7; D3 = our node number 

@15 tst.b DO 7 while (theirnode <> 0) 
beq.s @18 ze (theirnode <> mynode) 
cmp.b D3,D0 7 have we both chosen the same value? 
bne.s @20 ; go if not -- return their value 

@18 bsr RandomWord 7 choose a random value 
and #$S7F,D0 7 Mask to 7 bits 

ea (continued on page 86 ) | 
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Stl Ble a lie. 


wee a ae, li. ee 


— 


~ HOW TOWRITEAWINDOWS 


——— . 


_ 


ae me 


a lil 





APPLICATION IN TEN MINUTES. 


= aE 


BB Actor Yor kp 2: « aaa | Y a eee 


Jrle Ldit. Bort! Browse! Inspect! “Shou Reon? 





lenglates 

San: neu(Seribble, ThePort, nil, 
“2 Seribble Uindau™ CSB S58 388 388)) 
shat San, 1) 


doe co neu(Seribble, ThePert, oil, 
“tnather Scribble Winder", 

858 SH JOR FHB)) 

shpu{dee, 1) 

éa Seribble> 


i 
: SE Browser: Scribble De eee 
reppt’ f€dit Options Tenplates Doeit! Inspect? 
wm. 


5 


i Soeur NeGe ye = 8 + 
ife Inatralize neuse dragging. * 
Bef beginBrag(self, uP, point) 
fall SetCapture(hUnd) 5 

| draghf : getContextiself}; 

i navyela{point, dragBC); 


; 

} 

Browser: Popup¥indow 

Accept! {j s fYenplates Boit! Inspect? 
} 


Seri e 
foolVindou 
Brouser 
inspector 
Text Uindow 
Edititlindayw 
YorkEdit 
Breubert ia : 
f= Create a new Papup window. */ 
Def neufself, par, nenuNane, wHane, rect | thellind, sRect} 
s 





if not{sRect i= rect) 

then sRect <= rect(2?28, 88, 878 + x(screenSize())/4, 
nistscreenSize().y, 245 ¢ y(screenSize())74)); 

endif > 

thelind :° neu(self :Behavior); 

loadiienu(thetind, nmenudane ) ; 

trpate(theUnd, par, uNane, sRect, US POPUPLITNBOY) ; 

Call Setlindowlord{handle(theind), 8, hash(thelind)); 

thelind paintStruct c° static(neuGStruct, 32735 

rit ithetind); 

“thellad 


Actor™ is a new language that combines Microsoft® Windows with 
object-oriented programming. This means you can produce mouse and win- 
dow applications very quickly. 

For example, we created a simple “paint” program, and used it to draw 
the Actor logo you see on the screen. The whole program only took ten lines 
and ten minutes. Part of it is in the middle window on the left. 

Above, you see the commands that initialized the paint window and 
made it appear on the screen. Below, some code that’s built into Actor, 
specifying window behavior. Through a process known as “inheritance, it’s 
called into play automatically. 

Try programming in this new way, and youll never go back. 


And out about Actor. 
Call The Whitewater Group, (312) 491-2370. 


MICROSOF 


Technology Innovation Center (AWANees 
906 University Place, Evanston, IL 60201 
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MINIMIZE TURBO 
PASCAL DEBUG TIME 


Tmark allows Turbo to continue compiling 
after an error is found without returning to 





ASYNC APPLETALK 


Listing One (Listing continued, text begins on page 18.) 








bne.s @50 


NEW! TLIB™ 4.0 move D1, SysNetNum(a2) 
SOURCE CODE CONTROL mere pee ae 


The best keeps getting better! 


go if not (we cannot resolve this) 
Save their Net/Node suggestions 


: bra.s @15 ; loop to insure they're different 
line one! @20 move.b DO,sysABridge (a2) ; remember their node number 
Picture this: moveq #qlapUR, D2 ; D2 = LAP type 
You Aave just added a new routine at line 2,000 to an exist- rts 
ing program. The routine contains 5 simple errors. You are 
going to have to compile those first 2,000 lines 5 times in EJECT 
order to find all the errors. That’s 10,000 line of code! : 
But now you compile that program with Tmark installed. z 
You will still have to compile the first 2,000 lines in order to ; CheckUR -- check the received UR frame 
find the first error. However, when you fix that error Turbo : 
will continue compiling where you left off, not back at line ; Entry: DO = node number 
one. You will be able to skip from error to error with no : Dl = network number 
recompiling! ; Exit: DO = O if net/node didn't match 
Tmark creates image files on disk to save and restore ; <> 0 if they matched right off 
Turbo’s state during a compilation. Saves are made ; 
‘automatically before compiler errors or at lines desig- ; 
nated with a {tmark} comment. A window pops up to let NL a ee ec ee DET RR Te ee a TO Br Oe Ce et are eee 
you select which image to use to resume the compilation. CheckUR SUBR 
Tmark dramatically reduces debug time. Once you try it cmp SysNetNum (a2) ,D1 ; Network numbers match? 
you will never want to give it up! $80 + $2 s/h, Visa/MC bne.s @10 + go if not 
TANGENT DESIGNS cmp.b SysLAPAddr (a2) ,D0 7 Node number match? 
PO Box 896, Lake Forest, IL 60045 bne.s @10 ; go if not 
(800) 356-2750, (312) 295-0030 moveq #-1,D0 ; Make DO non-zero (it's OK) 
bra.s CkURRTS ; and exit 
CIRCLE 364 ON READER SERVICE CARD @10 tst SysNetNum (a2) ; is our network number 0000? 


¢ Ver. 3 reviewed in Sept 87 PC Tech Journal! @50 st AALAPst uck (a2) ; we're really bad off -- NNNN conflict 
e The fastest, most powerful system is now even faster! @60 clr DO ; we didn't match 
e Many new features! Keyword su - inserts date, version, : 

history, etc. into source code. Extended wildcard and list- CKURRTS _SUBEND '‘CHECKUR ' 

of-file support; can create lists by scanning source code for EJECT 


includes. Branching support, for multiple development lines. 
Can merge (reconcile) multiple simultaneous changes. 


e Keep all versions of a source code file in one compact library 
Synchronized control of multiple related source files. 


e LAN-compatible! Share libraries with all popular networks. 
Check-in/out locking for multi-programmer projects. 


e Designed for the future! \deal for use with WORM 
optical disks, like the new IBM 3363, since libraries are 
appended, not replaced, when you add new versions. 


e Includes a copy of Landon Dyer’s excellent public domain 
MAKE utility (with source code for DOS & VAX/VMS). 


e Plus: File compare utility. Virtually unlimited source file 
size. Date, comments with each version. Configurable 


user interface, and many configurable options, like: read- " ; 
only libraries, automatic tab/blank conversion, more. * For a), we shouldn't be talking, but he'll ask again anyway; 


PC/MS-DOS 2.x & 3.x Just $99.95 + $3 s/h Visa/MC ; for b), the IM is trying to force us to send a good frame. 
BURTON SYSTEMS SOFTWARE ; If the frame in transit makes it, OK. If not, he'll 
P. O. Box 4156, Cary, NC 27519-4156 . still ask again. 
(919) 469-3068 


SendIMUR - This routine fills and sends an IM or UR frame. This is 
a bit dicey, since a UR may be required as a result of receiving 
an IM. Since it's difficult to abort a frame already in progress, 
we finesse the problem by not sending the IM/UR frame. Here's why 
it works: 





A UR response is only necessary in two cases: 
a) we're trying to bring the link up, and the other guy said “IM"; 
b) he hasn't heard from us, and he wants to make sure we're here. 


=e Se Se Se Se Se Se Be Se Be Se Be 


Entry: AO -> master pointer of this hdlblk 
A2 -> MPPVars 

DO = node number 

D1 Net number 

D2 = LAP type 

A0O,A1,A3,D0-D3 changed 
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function libraries 


tm 
* 

k- 
ct 


disassemblers 


7a Se Se Se Se Fe Se Ne 


compilers 


text editors 


SendIMUR _SUBR 
tst.l tWDSptr (A2) 
bne.s SndIMUR1 


text filters 


are we sending? 
yes, just return 


communications support 





text formatters 


Se Se Se Fe 








eee ths : lea IMURbuf+1 (A2),Al1 Al points at IMURbuf (odd adrs) 
eaeeae Users’ Group move.b D2,2(al) Save the LAPtype (IM or UR) 
Library move.w D1,3 (al) 7 and the Net number 

pit eeaetscs move.b DO,5 (al) ; and the Node number 
compiler compilers 
Pa let ete ete acs AlDirectory lea IMURwds (A2) , AO 7; AO points at the WDS 
Pens et of Public Domain move.w #6, (AO) 7 save the length 
Pees C Source Code move.l Al,2(A0) # and the pointer to the data 
tutorials clr. w 6 (AO) 7 
math packages Send $ 1 0 s 
al for Directory. Wie st SendingIMUR (A2) ; remember this! 
Co ¢ call for More detal , bsr SendFrame 7; and send it 
cross compilers . er 100 yolumes 0 SndIMUR1 _SUBEND *SENDIMUR' 

ety PY in C Source EJECT 
pre-processors Public Doma! 
function libraries Code i SES a aay pS See et a py ed pt 
; TheC Users. Group , 
Cees ees PO Box 97 67460 , ReadPacket - read in the specified number of bytes into the specified 
Serre McP rete) 241-1068 : buffer. It is an error to request more bytes than have been received. 
text editors 











(continued on page 88) 
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Breakthrough in interface management. Generate C code from Dan Bricklin’s Demo screens. Date fields. Full color support. Money fields. Fully _ 
programmable field behavior. Scrolling text within fields. Calculator style numeric input. User definable entry validation. Field marking. Orthogonal _ 
field movement. Specify fields by number or location. Source code included. Screen sizes limited only by memory. Interfaces with db__VISTA 


_ development. String fields. Easy to 


- eredentials. Pull down menus. Sup 
mode. All functions are kept in 


- definition language based on C’s 
ly definable borders. The current 





the display. In 





and other libraries. Text style numeric input. Input masking. List fields. Create spreadsheets. Includes Look & Feel screen designer. Integer fields. 


String formatting commands. Date and time validation functions. Generate C code with Look & Feel screen designer. Supports automatic verticaland = 


horizontal scrolling. Clean screen machine. Number of 


fields per screen limited only by memory. Fast screen 


painting. Bind as much data as de ( | sired to fields. Numeric 
data entry with commas. Ask a -SC a ‘s 2 () bout our ie ae | 
gramming library. Hexadecimal - fields. Long fields. Yes 
or No fields. Float fields. Quick C. Read only fields 
Speaker functions. Lattice. Create with reports. Codename 


Slug. Numeric validation routines. 
keystroke level. Customize screens 
30 day money back guarantee. Gen 
assortment of editing commands. 
windows. Assign validation data to 


Validate data at the 
and menus at run time. 
eric data pointer. Rich 
Easy to learn. Pop-up 
fields. Corporate C 
ports EGA 43 line 
separate modules. Full 
prompt and message 
No royalties. Descrip- 
conversion routines. 
programs. Nest screens 
tain. Run time error 
sion functions. Screen 
printf. Time fields. Ful- 
field can be automati- 
cally highlighted. Create reports. | Exploding borders. 
Convert old programs to C. Borders with titles. Color map enables use of logical colors. Toll-free telephone support line. 24 hour bulletin board. 
Automatically detects type of monitor being used. ANSI driver included. Screen and field definitions. Uses device drivers for portability. View 
text in pop-up windows. Read only fields. Rich assortment of editing commands. Pass- 


Rook XH tel 


The state-of-the-art interface management 








C style function reference. Pop-up 
functions. Numeric range checking. 
tive function names. Date and time 
Capture screens from existing 
as deep as desired. Easy to main 
checking. Date and time conver 


system preferred by professional C 


programmers and consultants worldwide. 









word entry fields. Includes ROM BIOS driver. Fields can support any data type. Scrolling/ 
paging functions 00k X os cel included. Specify writeable and non-writeable positions within fields. 
Customizable borders. Se 3 


lect different cur 
Supports CGA, 
monochrome. 
cludes functions 


sor types. 
EGA, and ( - Z, () 
Aztec. In SCape . 

for writing to 

cludes an : 

ver. A vari| °@ Windows, windows, windows 


functions.| ® Menus, menus, menus 
Multi-level} ¢ Vast help system 


e WYSIWYG screen design tool 

e Generates readable C code 

e Create menus and data entry 
screens 

® Define fields of any type 

e Variables, prompts, and validation 



























ANSI device dri 
ety of keyboard 
Lined borders. 


menuing systems. Borderswith| e Create any type of field 
scroll lights. Vid| ° Line draw and erase eoRAM dri] 6 Data aes ies validation 
ver included.| ® Block, move, cut, paste, copy New device; . S tb ‘ 

driverscanbecre} © Horizontal and vertical scrolling ated. Color es 


‘cal use of | @ Extensive function library 
with prompt| ® Swappable device drivers 
grated help| @ Easy to learn and use 
many screens} e Easy to maintain and modify 
data entry; e Unsurpassed flexibility 
follow man ; 
e Professional manual 
customer sup : 
¢ No royalties; no run-time license 


map enables log 
colors. Borders 
lines. Fully inte 
system. Create as 
as needed. Create 
screens. Easy to 
ual. Professional 
port. Includes Ms higher level 
functions. Device drivers swappable at run-time. Context sensitive help system. Cross e Source code included 
referenced help screens. Protected fields. Object-oriented design. Read in screen defini] ® Demo package available 
tions from disk files. Digitally mastered. Assign prompt strings to fields. UNIX. No run- 
time license. Numeric range checking. Unified field theory. Full printf % substitution 
within screen definitions. Supports all memory models. C Bricklin run. Turbo C. 

24 hour bulletin board. Higher level functions included. Object-oriented design. 
Oakland G rou p, | NC. tJ All library functions are kept in separate modules. Nest screens as deep as desired. 
675 Massachusetts Avenue 
Cambridge, MA 02139-3309 


Design screens with Look & Feel screen designer. New device drivers can be created. 
Create as many screens as needed. No run-time license. Hexadecimal fields. Prefer- 
800-233-3733 CALL 
617-491-7311 NOW 


red by professionals and consultants. Microsoft. Cross referenced help system. 
by space aliens. Generate C code with Look & Feel screen designer. Context 
PC/MS-DOS $279, plus shipping (includes C-scape, Look & Feel, 
source, manual and support). UNIX/others call. 30-day review. 


e Edit Dan Bricklin Demo slides 
e Full color support 

e Fast, easy, and fun to use 

e Includes help 

e Full-feature demo available 




















sensitive help system. Scroll lights. Read in screen definitions from disk files. 
Automatic vertical and horizontal scrolling. Batteries not included. Double and 
single line borders. Cross-referenced help system. Save and restore regions of the 
display. Nested menus. Quick C. Create screens from ASCII files. Easy to learn 
and use. Horizontal and vertical scrolling. Used by consultants and corporations 
worldwide. Easy to maintain. Professional documentation. Screen designer creates 
readable C code. Portable. Easily modifiable functions. No royalties. Source code included. Turn Dan Bricklin slides into C. Professional support. 
Interface examples for data base management. Validation at keystroke level. Vast integrated and indexed context-sensitive help system. Save and 
restore regions of the display. Now supporting Quick C, Turbo C, Aztec, Lattice, Microsoft, UNIX and others. And that’s not all. Call for demo. 
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modify. Fast scren _ 
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Listing One (Listing continued, text begins on page 18.) 





ReadRest - read in the rest of the packet, putting the specified number 
of bytes into the specified buffer. Error if packet longer than buffer. 


Call: : 
AO,Al1,A2 = SCG read and write addresses and local variables 
A3 -> buffer to read into 
A4 -> start of ReadPacket 
D3 =. byte count to read (word) 


; Return: 

; DO changed 
: Dl number of chars still unread (ReadPacket); modified (ReadRest) 
; D2 saved 

; D3 = 0 if exact number of bytes requested were read 

; > 0 indicates number of bytes requested but not read 

; (packet smaller than requested maximum) 

7 < 0 indicates number of extra bytes read but not returned 

; (packet larger than requested maximum) 

: AO,Al preserved by ReadPacket, modified by ReadRest 

: A3 -> one past where last character went 

5 A4,A5 saved (until packet's all in or error) 


; NOTE: CRC bytes not included in counts 





ReadPacket BRA.S  DoRP Need this for two entry points 


a] 





restore A4 and AS 
and go to the common code 


ReadRest movem.1 a0/al/D2,-(sp) # save some regs 
move RevdLen (a2) ,D2 # get the number of remaining chars in Dl 
move Dl,DO °° # we expect to copy Dl bytes 
move $0,- (8p) 3 and expect good return status 
sub D1,D3 # compute (D3 — Dil) 
bol.s @1 3 go if we should copy Dl bytes (it fits) 
add D3,D0 # otherwise, copy D3 bytes (dl + (d3-d1)) 
move #-1, (sp) 3 and set error return status 
3 
o 


@1 movem.1 SaveA45 (a2),a4/a5 
bra.s DoCcpy 











PRODUCTION 
LANGUAGES CORP. 















PRODUCTION QUALITY 


68020 
ANSI C Compiler 


If you are doing serious development for the 
68020 you already know that existing C 
compilers do not utilize the processor's full 
power.... 





C is a great 
language. 






on your program 







C and write your 


UNTIL NOW! 
Uses FULL 68020 instruction set 
Full 68881 floating point co-processor support 
Global optimization 
Full ANSI Libraries 
Cuncurrency supported 







help. 















Available on a variety of hosts 
including VME, VAX, IBM PC & MAXII 






CALL TODAY! 1/27/86) 


817-599-8366 


Production Languages Corporation 
P.O. Box 109, Weatherford, Texas 76086 
















eng 
\aj of iae raft : 








Quality software since 1981 
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WORKSHOP makes it easy. 
Interactive software teaches 
you C with immediate feedback 


The C WORKSHOP has 
everything you need to learn 


grams, too. You get a fast editor,™* 
standard C compiler, and online 


Let the other guy struggle with confusing books 
and compilers. Join AT&T and other major com- 
panies now using the C WORKSHOP. Columnist 
Adam Green calls it “the most intriguing new type 
of training system I’ve ever seen.” (InfoWorld 











ytoC 


programming 
Now the C 






exercises. 











Own pro- 















Order Information 

To order the C Workshop, call toll-free 
(800) 227-2400 ext. 955 day or night 
(Visa, MC, or AmEx). Or send check to 
Wordcraft, 3827 Penniman Ave., Oak- 
land, CA 94619. $69.95 plus $5.00 
shipping (Priority Mail). In CA, add 
$4.90 sales tax. 
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DoRP movem.1 a0/al/D2,=- (sp) # push some regs 
move RevdLen (a2) ,D1 # get the number of remaining chars in Dl 
move D1,D0 7 assume we'll copy them all 
move $-1,- (sp) 3 and that there's an error 
sub D3,D1 * update Dl (remaining bytes in buf) 
bmi.s DoCopy ? go if it’s negative (error) 
move D3,D0 7 we'll read what they asked for (D3) 
cir (sp) # and remember that it's exactly right 
cir D3 : 

DoCopy move.l LAPStash(A2),a0 # point at the source data 
ext. DO ? belt and suspenders (DO = actual length) 
add.1 DO, LAPStash (A2) ; and update the LAPStash value 
sub DO, RcevdLen (a2) ; and the num chars remaining 
move.l A3,Al # point at the dest buffer 
lea 0 (A3,D0),A3 * update the return pointer 
_BlockMove # Do It 
move RevdLen (a2) ,D1 ? return number of unread chars 
move (sp) +,d0 3; get the return status back 
movem.1. (sp) +,a0/al/D2 # get the other registers 
tst DO # set the CCR, 
rts 
EJECT 

NextCRC -=- compute a CRC on the word pointed at by A3 and the char in DO 


ee te Se Me Se %e Se Se Ve Be Se Be Se Se Be %e Se Fe VO 


=e Se Se Se %e 


This routine computes a CRC-16 on a stream of bytes. It uses a 
table lookup scheme to implement a x*16 + x*15 + x*2 + 1 polynomial. 
The interested reader is referred to McNamara's Technical Aspects 

of Data Communications, second edition, pps 110-122 for an obliquely 
related discussion. 


This routine takes the storage short cut of looking up two four-bit 
values in a 16-entry table instead of one eight~-bit value in a 256 
word table. This saves a considerable amount of space (32 bytes vs. 
512 bytes for the table). 


One pass thru this routine (one character) is about 262 cycles, or 
33.45 usec on a Mac. This is a data rate of ~29,900 char/sec, 
or plenty fast to keep up with a 9600 baud link. 


Entry: A3 -> CRC accumulator 


DO LSbyte is the data char (already masked to 8 bits) 


Exit: D1,D2 changed 
Other regs unchanged 

NextCRC _SUBR 0 ; for macsbug 
move (a3),D2 7; D2 is the temp accumulator 
move DO, D1 ; make a copy of the input character 

; first work on the least significant nibble 
eor D2,D1 ; xor the accumulator with the data char 
and #SOF,D1 ; to get an index into the CRCTable 
add Bi; Ds 7; to make a word index 
lsr #4,D2 . g shift the CRC right four bits 
move CRCTable(D1),D1 
eor D1,D2 + and mask it with the approp. table entry 
move DO,D1 
lsr #4,D1 ; shift the data char right four bits 

z and do it again for the high nibble 
eor D2,D1 3; xor the accumulator with the data char 
and #SOF,D1 ; to get an index into the CRCTable 
add D1,D1 ; to make a word index 
lsr #4,D2 ; shift the CRC right four bits 
move CRCTable(D1l),D1l ; and mask it with the approp. table entry 
eor D1, D2 
move D2, (a3) ; remember this CRC for next time 
_SUBEND "NEXTCRC ' 

CRCTable DC.W $0000, $CCO1, $D801, $1400 
DC .W $FO001, $3C00, $2800, $E401 
DC .W $A001, $6C00, $7800, $B401 
DC.W $5000, $9C01, $8801, $4400 

EJECT 


Pr arate ae Se PBS ee Te a Ti ee ie 


(Listing One to be continued next month. 
Listings Two and Three will also appear next month. ) 
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Programmer's 
Power Pack 






ow you can reach 100,000 





programmers, consultants, 
and systems integrators with your 
postcard ad. The Programmer's Power 
Pack card deck targets this elite audi- 


ence, including subscribers to Dr 





Dobb's Journal of Software Tools, for 


only a little over a penny a contact! 


The Programmer's Power Pack 
Card Deck 


Next Mailing Date: December 28, 1987 
Reservation Closing: November 23, 1987 








For advertising rates, card specifications, and 


to reserve your space, contact: 


Ann Roskey 


Northeast Account Manager 
415-366-3600 


Stephen Nestel 
National Account Manager 
415-521-4133 
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NEW! 
FASTER THAN EVER! 


DeSmet C v3.0 


FASTER C DEVELOPMENT 


Invoke the DeSmet C compiler from the SEE'™ full screen editor and 
the first error will return you immediately to SEE at the error line with 
the error message displayed. 


FASTER COMPILATION 


When you don't use inline assembly code or don't want to see the 
ASM88 output, the V3.0 compiler produces object code directly - 
making DeSmet C up to twice as fast as before. 


PLUS EXPANDED STANDARD LIBRARY 


Networking, path, file, time, enhanced string functions, environment 
support now included. 


FULL FEATURES WITH EVERY PACKAGE 
—— ONLY $109 —— 


C Compiler, Assembler, Binder, Librarian, Execution Profiler, Overlays, 
8087 and S/W Floating Point, Full STDIO Library and Full Screen Editor 
(SEE). Debugger and Large Case options available at $50 each. 


C Ware Corporation 
P.O. Box 428, Paso Robles, CA 93447 
Phone: (805) 239-4620 Telex: 358185 BBS: (805) 239-4834 
We accept VISA, MC & AMEX. Call now and we'll ship today. 
Street Address: 945 Spring #14, Paso Robles, CA 93446 





Now with 
hehe 
EXPRESS 


the dBx” Translator 


C from dBASE II, III, II+ programs 
Move to UNIX, XENIX, QNX, MAC, AMIGA 
Faster, more reliable IBM PC programs 
Supports multi-user and network 
Run your code on any standard C system 
e Know dBASE? Learn C easily. 
Priced from $350; available from distributors 
Includes full screen handler library 
Supports a choice of C database managers 


_ from (ZX) Desktop Ai 


1720 Post Road East, Westport, CT 06880 
Telephone: 203-255-3400 * Telex: 6502972226MCI 
MCIMAIL-DESKTOPAI 


aBASE is a trademark of Ashton-Tate dBx is a trademark of Desktop Al 
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Listing One (Text begins on page 40.) 


Listing 1 


SCR# 0 
( A Forth Standard Prelude ) 


This file defines additional functions and extensions which 
cannot be provided in the Forth-83 Standard. 


Select the appropriate prelude for the particular Forth you are 
using and load it before loading a Standard program using these 
functions. 


Copyright 1986 1987 by Martin J. Tracy. 
SCR# 1 


( Select a FORTH-83 implementation) 
FORTH DECIMAL 


( 2 LOAD ( *** model ****) 

( 3 4 THRU: ( Lab Microsystems, Inc. PC/FORTH Ver. 3.0) 
( 5 LOAD ( Laxen-Perry F83 Ver. 2.1) 
( 6 LOAD ( MicroMotion MasterForth Ver... 1.2) 
( 7 LOAD ( ZEN Ver. 0.0) 
( 8 LOAD ( FORTH, Inc. PolyFORTH II ISD-4 MS-DOS) 


S} 

( FORTH-83 functions-- typical definitions) 

( Note: functions already provided need not be redefined.) 
: RECURSE ’ [COMPILE] RECURSE ; 
: INTERPRET INTERPRET ; 


IMMEDIATE 


:.i>> (+ *data -) COMPILE R> ; IMMEDIATE 


ed tS Gaga:) COMPILE >R ; IMMEDIATE 
( Used for alignment: ) 

: ALIGN HERE 1 AND ALLOT ; 

: REALIGN ( a-a' ) DUP 1 AND + ; 


Note: defined here for a dumb terminal.) 
TAB (xy ) CR 2DROP ; 

: PAGE 25 0 DO CR LOOP 0O O TAB ; 

: MARK ( a n) TYPE: ; 


oo - 


SCR# 3 
( Lab Microsystems, Inc. PC/FORTH Ver. 3.0) 


( RECURSE and INTERPRET are provided.) 


~~ 


Used by hi-level run-time words to find in-line data: ) 
P(r = “data ) COMPILE R> ; IMMEDIATE 
3 Pte fi ate} COMPILE >R ; IMMEDIATE 


=~ 


PC/FORTH already has a word ALIGN which works differently.) 
The following two definitions must be in the order shown: ) 


~~ 


: REALIGN ( addr --- addr' ) ALIGN ; 
( 8086/80286 run-time I realignment.) 
ALIGN ( --) EVEN ; 


( 8086/80286 compilation address alignment.) 
SCR# 4 
( Lab Microsystems, Inc. PC/FORTH Ver. 3.0) 


Ly 
: TAB GOTOXY ; 


( --- ; clear screen and home cursor ) 
: PAGE CLS ; 


(an --- ; display string in inverse video ) 
: MARK REVERSE TYPE REVERSE ; 


SCR# 5 
( Laxen-Perry No Visible Support F83 Ver. 2.1) 
( RECURSE and INTERPRET are provided.) 


( Used by hi-level run-time words to find in-line data: ) 


2 i> =" "gata COMPILE R> ; IMMEDIATE 
$2 St = *data_5 COMPILE >R ; IMMEDIATE 
( Used for alignment: ) 

: ALIGN 3 : REALIGN 

s' PAGE. { -—=~) DARK ; 

\ clear screen and home cursor. 

: TAB ( x-y =~) AT ; 

\ move cursor to given coordinate. 

; MARK :~{' a-n- ==) TYPE ¢ 


\ the MARK function is not provided in F83. 


SCR# 6 
MicroMotion MasterForth Ver. 1.2.4) 
RECURSE is provided.) 


ee 


:; INTERPRET TIB #TIB @ EVAL ; 


a Ae COMPILE >R ; IMMEDIATE 
See COMPILE R> ; IMMEDIATE 


NEED ALIGN \IF : ALIGN ; 
NEED REALIGN \IF : REALIGN 


. 
, 


( PAGE is provided.) 
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: TAB (xy) AT; 
: MARK ( an) +INVERSE TYPE 


~INVERSE ; 






SCR# 7 
( ZEN 0.0) 


( RECURSE and INTERPRET are provided.) 
( >I and I> are provided.) 


NEED ALIGN \IF 
NEED REALIGN \IF 


ALIGN ; 
: REALIGN ; 


( PAGE TAB and MARK are provided.) 


SCR# 8 
FORTH, Inc. polyFORTH MS-DOS ISD) 


— 


HEX 1F1F WIDTH ! 
Forth-83 Compatibility layer must be loaded first.) 


~~ 


RECURSE LAST @ @ 2+ 
INTERPRET is provided.) 


COUNT + , ; IMMEDIATE 


om om ee 


Used by hi-level run-time words to find in-line data: ) 
I> ( - ‘data ) COMPILE R> ; IMMEDIATE 
2° > ( - "“data.) COMPILE >R ; IMMEDIATE 


Used for alignment ) 
ALIGN : REALIGN 


om 


PAGE and MARK are provided.) 
TAB (xy ) SWAP TAB ; 
move cursor to given coordinate.) 


( 



































perimentation with parallel programming. 


FEATURES 
Supports a very large number of tasks (typically more 
than 100) limited only by available memory. Low over- 
head per task results in very fast context switching. 
Provides a full set of inter-task communication (ITC) 


blocking queues, and UNIX*-style signals. Also has 
building blocks for constructing your own ITC facilities. 
Handles interrupts (DOS version) and integrates them 
into task scheduling. Supply your own interrupt handlers 
or block tasks on interrupts. 

Lets you trace task switches and inter-task 
communication. 


manual and reference manual of commands. 
Interwork is available for the following systems: 
Operating System 
PC-DOS 2.0 or later 
XENIX* 
UNIX 4.2BSD 


Price 
$129 
$159 
$249 


Hardware 
IBM PC, XT, AT 


IBM PC AT 
DEC VAX; SUN III 


Microsoft C compilers. 

Please specify hardware and operating system when 
ordering. Shipping and handling included; COD orders 
add $2.50. Send check or money order to: 


Ae Block Island Technologies 
Innovative Computer Software 


(503) 241-8971 


*Trademarks: UNIX, AT&T Bell Laboratories, Inc.; XENIX, 
Microsoft, Inc.; VAX, Digital Equipment Corporation 
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C Programmers: Combine C and COMMON LISP 
to Increase the Power of Your Software 





Simple. 


Add LISP features to your software without mak- 
ing it a full time job. The TransLISP PLUS tutorial, 
on-line help, and 30 sample programs with 
commented source make it easy. 


Practical. 


Start by modifying the LISP sample programs 
and including them in a system you wrote in C. 
Yes, in C! TransLISP PLUS includes a C Language 
Interface that lets you integrate your Microsoft C 
code and libraries with all or portions of our LISP 
interpreter. 

Use TransLISP PLUS to add natural or command 
language features to replace menus. .. or to flexibly 
manage related but disparate information. Code 
from C libraries provided by other vendors can be 
integrated into your program to perform tasks not 
normally part of LISP. 


| The 
(@) ) Coder’s 


Dr. Dobb’s Journal, October 1987 


‘TransLISP PLUS: 


Source ™ 541-D Main St., Suite 412, So. Wee MA 02190 


Thorough. 


TransLISP PLUS took over 400 primitives from 
the most widely used and respected LISP standard, 
COMMON LISP, and made it available on IBM 
PCs, XTs, ATs, and virtually every other MSDOS 
machine. So now you can work with anything from 
a $700 PC to a $7000 PC. 

The utilities toolbox is included at no charge with 
a built-in editor, pretty printer, cross reference, 
and additional debugging tools. 

An optional Runtime encrypts your source code 
so that you can distribute your applications safely. 
You pay no royalties. 

Requires MSDOS 2.0+, 320K RAM, and a 360K floppy. 


MONEYBACK GUARANTEE 


Try TransLISP PLUS ($195) for 30 days — if not 
satisfied get a full product refund. The Optional 

Runtime is available for $150. Or start by learning 
LISP with TransLISP ($95) then upgrade to PLUS 


for $158. 
Call (800) 255-4659 
In MA (617) 331-0800 
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Parallel Programming for “C” 


INTERWORK 
A Concurrent Programming Toolkit 


Interwork is a “C” program library which allows you to write 
your programs as a set of cooperating concurrent tasks. 
Very useful for simulation, real-time applications, and ex- 


facilities, including shared memory, locks, semaphores, 


Comes with complete documentation including a user's 





PC-DOS version is compatible with DeSmet, Lattice, and 


13563 NW Cornell Road, Suite 230, Portland, Oregon 97229-5892 
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PATTERN MATCHING 











Listing One (Text begins on page 46.) 
/* 
* 
* F INDCMD 
* 
* MODULE: MAIN.C 
* 
COPYRIGHT (C) 1987 by Charles F. Bowman 
“ All Rights Reserved. 
x 
ms 
/* 
™ This module contains the driving loop of the program. 
ay 
#include <stdio.h> 
#include "findemd.h" 
struct attribs atts} = 4 /* For display */ 
DIRECT, *"y 
RDONLY, *£*,; 
HIDDEN, .-*h", 
Sisian, "st, 
ARCHIV, ‘a' 
}; 
char *month[] = { 


"Jan" > WPeb" 5 "Mar" 3 
"Apr" ; "May" ’ e Jun" ‘ 
" Jul" ‘ "Aug" ; "Sep" _ 
HOGE Ww "Nov" ; "Dec" 


ye 





main( ac, av ) 


int ac; 
char *xav[]; 
{ 
int i, “hen; 


char dir[{ MAXPATH ]; 

char path[ MAXPATH ]; 

char *tptr, tpath[ MAXPATH ]; 
struct dirent dfile; 





if(.ac == 1 )}{ 
fprintf( stderr, "usage: fc patl pat2 ... patn\n" ); 
exit (. i...) 





} 


printf£( "FINDCMD - COPYRIGHT (C) 1987, Charles F. Bowman. " ); 
printf( "All Rights Reserved.\n\n" ); 








sprintf( path, ".;%s", getenv("PATH") ); /* Get path */ 
for( i = 13 4. < ace 447 71 
/* 
* For each supplied pattern argument 
ay 


strcpy( tpath, path ); 
tptr = tpath; 


injtse( -<aviil. )s /* set-up transition table */ 
while( (len = nextdir(tptr)) > 0 ){ 
/* 
¥ For each directory component 
¥/ 
tptr[. len ] = NIL; 
if ( tptr[len=l} == "\\"){ 
/* 
* No double backslashes! 
ef 


Sprintit:-dir,: *$s* .*", tstr }: 








oe ee ee a See esr ee | 
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} 
/* 


* 


sf 


char 


{ 


} 
/* 


~< 

=e 
char 
slcase ( 
char 


{ 





nextdir( cp ) 


Se ee een ee 


} else { 
sprintt (-dir, “ts\\*.*", Eptr.}? 


} 


/* 
* Compare each entry in directory 
mf 
if( firstf(dir, &dfile) ) { /* Get first */ 
/* 
* Error - bad dir in path 
af 
fprintf( stderr, 
"BAD DIRECTORY SEGMENT: [%s]\n", 
Gir .)-5 
break; 
} 
do { 
if( state (slcase(dfile.dname)) ) { 
/* 
x Print if a match is found! 
¥y 
putfile( &dfile, tptr ); 





} 
} while( nextf(&dfile) ); 


/* Get next */ 
tptr += len + 1; 
} 


exit( 0 ); 


NEXTDIR: return the next directory component of 'PATH' 


register count; 


count = 0; 
if( *cp == NIL ){ 
return( -1 ); 


/* End of list. */ 


} 

while( *cp != NIL && *cp != FLDSEP ) { 
cptt+; 
count ++2 

} 


return( count ); 


SLCASE: convert a string to lower case 


* 


cp.) 

*op; 

register char *ptrs 

ptr = cp; 

while( *ptr ) { 
*ptr = tolower( *ptr ); 
PLI++; 


} 


return( cp ); 


PUTFILE: display directory info for each matched file 





(continued on next page) 
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MetaWINDOW 


Product of the Month 
"... @ technological tour de 
force for fast PC graphics." 


NO ROYALTIES! 


| MetaW/INDOW provides an expana- 
| ed set of graphic drawing functions, 
| plus the added functionality and 
| performance required for designing 
| multi-window desktop applications. 


* auto-cursor tracking 
_ ¢ pull-down menus 
|e pop-up windows 


* comprehensive 
graphic functions 





10 Point 12 Point 


LE multiple fonts 


Display multiple bitmap or 
"filled-outline" fonts. 

Face fonts for bold, italic, under- 
line or strike-out stylings. 

Full "RasterOp" transfer 
functions for writing, erasing, 
rubberbanding or dragging: 
lines, text, icons, bit images 
and complex objects. 

Create pop-up menus, 
windows and icons. 

¢ Supports IBM's new PS/2 VGA 
and MCGA graphics. 
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x 7 ae 
for Soft Parts. 





At Rainbow Technologies, we think protecting 
software developers’ investments is very serious 
business. That’s why we designed the first fully 
effective security solution for software running on 
PCs and other computers. 


Our family of virtually impenetrable Software 
Sentinel hardware keys provides the highest level of 
software protection the developer can get. While 
remaining invisible to the end user. 


Take a look. 


Key Sentinel Family Features. 


Prohibits unauthorized use of software 5 No need 
for copy protection 9 Unlimited backup copies 9 
Virtually unbreakable 5 Pocketsize key 5 Trans- 
parent operation 5 Transportable 



















© Higher level la 
Software eet 
Sentinel. © Runs under DOS on 
© Runs under DOS and Xenix, PC/XT/AT and compatibles 
on IBM PC/XT/AT and O Parallel port version only 
compatibles ~_-— 
© Algorithm technique Softw: 
_ (Never a fixed response) _ Sent 
© Serial or parallel port version 
© Minimal implementation effort 
Higher level language 
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Listing One 
(Listing continued, text begins on page 46.) 
%/ 
putfile( dfile, dir ) 
struct dirent *dfile; 
char *dir; 
{ 
int i; 


char datestr[ 50 ]; 





/* 
* Print attribute chatacters 
*/ 
for( i= 0; i-< SA SIZE(atts); i++ ){ 
if( atts[i].val & dfile->dattr ) { 
putehar( atts[i].chr );3 
} else { 






potensrt t=" —) 7 


fdosdte( datestr, &dfile->ddate ); 
/* DOS -> ASCII */ 


if ¢ dir letyvlen(airkei). == *\\'-)4 
/* 
* No double backslashes! 


a4 


printf( " 8D %s %s%s\n", 
dfile->dsize, 
datestr, 
slcase (dir), 
dafile->dname 

)3 

} else { 
printf( " $8D %s %s\\%s\n", 

afile->dsize, 

datestr, 
slcase (dir), 
dafile->dname 


return( O ); 


* FDOSDATE: convert a DOS format date to an 
ASCII string 


fdosdte( where, dptr ) 
char *xwhere; 
struct dosdate *dptr; 
{ | 
sprintf( where, "%s %2d %02d:%02d:%02d %4d", 

month[ dptr->month-1 ], 

dptr->day, 

dptr->hour, 
dptr->min, 
aptr-ssec:*' 2, 
adptr->year + 1980 


return( 0 ); End Listing One 


} 
Listing Two 
/ * 


x 


* F INDCMD 

* 

: MODULE: DOS.C 
(continued on page 96) 
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MICROWAY ACCELERATES YOUR PC! 





FastCACHE-286"" 


Runs your PC Faster than an AT! 
Runs the 80286 at 9 or 12 MHz and the 
80287 at 8, 9 or 12 MHz. Includes 8 
kbytes of 55ns CACHE. 





Compatible with IBM PC, XT, Leading 
Edge Model D, Compaq, and Turbo 
motherboards. Includes 8088 Reboot 
Switch, DCache, Print Spooler and 
Diagineanes is ce From $399 


8087 SOFTWARE 





IBM BASIC COMPILER ......... $465 
MICROSOFT QUICK BASIC ...... $79 
87BASIC COMPILER PATCH ....$150 
SLR A oo os bn ce ew ee os $200 
IBM MACRO ASSEMBLER ...... $155 
MS MACRO ASSEMBLER........ $99 
87MACRO/DEBUG............. $199 
MICROSOFT FORTRAN V4 ..... $299 
PRN aT a eo fiw eet eke $399 
LAHEY FORTRAN F77L......... $477 
MS OP CATIGEG 22 occurs os CALL 
STSC APL®&PLUS/PC .......... $450 


STSC STATGRAPHICS .......... 


Turns your AT into a high speed, multi-user 
Xenix business system! 


8 port, intelligent serial controller with 3% 
response degradation. Includes 8 MHz 
80186 with builtin DMA........ $1299 


02364 USA 
(617) 746-7341 











LOTUS/INTEL EMS 
SPECIFICATION BOARDS 


MegaPage™ The only EMS board which 
comes populated with two megabytes of 
cool-running, low power drain CMOS 
RAM installed. Includes RAM disk, print 
spooler, disk cache and EMS drivers. For 
the IBM PC, XT and compatibles. . .$549 


MegaPage with OK ............ $149 
MegaPage with 2 megabytes of HMOS 
Pa Sc Ned gee os te $419 


MegaPage AT/ECC™ EMS card for the 
PC AT and compatibles includes Error 
Correction Circuitry. With ECC, 11 RAM 
chips cover 256K so the user never en- 
counters RAM errors. With 1 megabyte 
COR BAM os oe ee Gas Be $699 
INTEL, JRAM, or Maynard ....CALL 
INTEL INBOARD 386 OK ..... $1250 


287 Turbo""-10/12 






Be newCompag 386 with 100% 


_ software compatibility. 


PC Magazine “‘Editor’s Choice” 


MICROWAY SOFTWARE 
FOR LOTUS 1-2-3" 


PowerDialer® Add-In for Lotus 1-2-3 
Release 2. Automated telephone dialing 
from within 1-2-3. Adds least cost routing, 
automatic carrier selection and automated 
phone book worksheet. Builds cus- 
tomized dialing applications. Can be used 
With) D@SEVIOW 5. Si. 50 i Se as oe $79 
FASTBREAK™ employs the 8087 to in- 
crease the speed of Lotus 1-2-3™ Version 
1A or 1A*. Users are reporting speed ups 
of between 3 and 36 to 1. When run with 
our NUMBER SMASHER accelerator 
card, recalculation speed ups of 10 to 30 
are being reported ............... $79 
HOTLINK™ adds easy linking of spread- 
sheets to Lotus 1-2-3 Version 1A...$99 


CALL (617) 746-7341 FOR OUR COMPLETE CATALOG 


@ 
1) [Tos (0 Veccknestn 


The World Leader 
in 8087 Support! 

























NUMBER 
SMASHER/ECM™ 


Triples the speed of CAE 3S 
and all applications! 


From 


























12 MHz 
8086/8087 
Accelerator 
Plus 
A Megabyte for DOS! 
For the IBM PC, XT and compatibles 


PC Magazine “Editor’s Choice’”’ 
8087 UPGRADES 


All MicroWay 8087s include a one year 
warranty, complete MicroWay Test 
Program and installation instructions. 



















































































80287-6 6 MHz............... $179 
For 8 MHz AT and compatibles 
80287-8 8 MHz............... $259 
For the 8 MHz 80286 accelerator cards 
80287-10 10 MHz............ $395 
80387-16 16 MHz............ $495 


PC-PAL™ Programmer ...... $395 


64K 150ns .....$15 256K 150ns .....$36 
Call for great prices on V20 & V30 


287 TURBO-PLUS™ 
Speeds up your AT 

Adjustable 80286 Clock 6-12 MHz 

10 MHz 80287 Clock 

Plus Full Hardware Reset ........ $149 

Optional 80286-10 ...... 




























287 TURBO-PLUS 
With 80287 10 MHz ............ $549 
With 80287 12 MHz ............ $629 







MicroWay Europe 

32 High Street 
Kingston-Upon-Thames 
Surrey England KT1 1HL 
Telephone: 01-541-5466 
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COPYRIGHT (C) 1987 by Charles F. Bowman 
All Rights Reserved. 


wy 
/* 
* This module contains the DOS dependent functions to 
* access file names in directories. This is non-portable 
*/ 
#include <dos.h> 
#include <stdio.h> 
#include "findemd.h" 
struct reg regs; /* set & retrieve regs 
static struct dirent lfile; /* DOS disk trans addr 
/* 
* FIRSTF: initiate DOS environment and return first file 
Ke 
firstf( dirpath, dfile ) 
char *dirpath; 
struct dirent *dfile; 
{ 
/* 
Set disk transfer address 
xi 
regs.r_ ax = SETDTA; 
ptoreg( dsreg, regs.r dx, regs.r ds, &lfile ); 
intcall( &regs, &regs, DOSINT ); 
/* 
x Find: first 
ms 
regs.r ax = NFFIRST; 
regs.r_ cx = HIDDEN | SYSTEM | DIRECT | RDONLY | ARCHIV; 
ptoreg( dsreg, regs.r dx, regs.r ds, dirpath ); 
intcall( &regs, &regs, DOSINT ); 
if( regs.r flags & F CF ){ 
/* 
x Error! 
a F 
return( 1); 
} 
*dfile = lfile; 
return( 0: -}; 
} 
/* 
* NEXTF: return all subsequent files in directory 
*y. 


nextf( dfile ) 


Struct 


{ 


“HY 


96 


dirent *dfile; 


/* 
* Call DOS: find next 
x} 
regs.r_ ax = NFNEXT; 
regs.r_ cx = HIDDEN | SYSTEM | DIRECT | RDONLY | ARCHIV; 
intcall( &regs, &regs, DOSINT ); 
if( regs.r flags & F CF ){ 
/* 
* Error! 
Re 
return( 0 ); 


} 


*dfile = lfile; 
return(. 1); 


code. 


*f 


name 


/* All! 


me 


End Listing Two 
(Listing Three begins on page 106.) 
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Avoid extra steps. 


You’ve got better things to do than repeat the same steps. 

Over. . . and over. . . and over. Up your productivity with 
Greenleaf Software. 

With more than 70 new functions added to our popular libraries, 
Greenleaf is now the most complete and mature C language function 
resource available. It’s no wonder we’ve been rated the best. Winning 
program developers in major corporations such as IBM, EDS and GM 
have proven our reliability in thousands of applications. 


Step Livel 

New Greenleaf Functions v.3.10 includes 295 of the functions you’ve 
been asking for — DOS, disk, video, color text and graphics, string, 
time/date, keyboard, plus many more! With Greenleaf, 
you'll finish faster. 


Cut Corners 

When it comes to merging information, the new Greenleaf Comm 
Library v.2.10 is the fastest communications facility of 
its kind. Over 120 functions — ring buffered, 
interrupt-driven asynchronous communications. And, 
only Greenleaf gives you the power to build a 16-port 
communication system. 


Get on the Fast Track 


Order your new Greenleaf library today! See your 
dealer or call 1-800-523-9830. 


y, | 
2h, “9 i Seabee : bs 
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Greenleaf Comm Library $185.00 
Greenleaf Functions $185.00 
Greenleaf DataWindows $225.00 
Greenleaf C Sampler $ 94.50 
Digiboard Comm4 $325.00 
Digiboard Comms $535.00 


In stock, shipped next day. 
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NEW TURBO C VERSIONS 







Greenleaf DataWindows 


and Turbo C 

DataWindows, the finest C 
programming windows tool 
available, puts windows, transaction 
data entry and menus at your 
fingertips. 

Our new TURBO C versions are 
ready to get you going fast! And, 
our new 3-in-1 C Sampler for only 
$94.50 supports both Turbo C and 
Quick C with comm, windows, 
menus and more! Our libraries 
support all popular C compilers for 
















Call Toll Free: 


H00-523-7030 


In Texas and Alaska: 








Greenleaf Software, Inc. 
16475 Dallas Parkway, Suite 570 
Dallas, Texas 75248 





M&T BOOKS AND SOFTWARE TOOLS 








Small-Windows: 
A Windowing Library 


mall- Windows is a complete win- 
dowing library for C and Small-C. 
The package contains: 18 video func- 
tions written in assembly language; 
7 menu functions that support both 
static and pop-up menus; and 41 win- 
dow functions, including functions to 


C Toolbox 


Smali-C Compiler & 
Small-C Handbook 


ike a home-study course in com- 

piler design, the Small-C Compiler 
and the Small-C Handbook provide 
everything you need for learning how 
compilers are constructed, and for 
learning C at its most fundamental 
level. Full source code is included. 


Glenn, HAIG, OYE, HBG) SON, ACT hs CP/M Small-C Compiled with 


push, and pop windows. A file direc- 
tory facility illustrates the use of the 
window menu functions and provides 
file selection, renaming and deletion 
capability. Two test programs are also 
included. For PC/MS-DOS systems, 
and Microsoft C Version 4.0 and 
Small-C compilers. Documentation 
and full source code is included. 


> Small-Windows Item #109 $29.95 





Small-Tools: 
Programs for 
Text Processing 


hese Small-C programs perform 

specific, modular operations on 
text files, including: editing, format- 
ting, sorting, merging, listing, printing, 
searching, changing, transliterating, 
copying, concatenating, encrypting 
and decrypting, and more. Supplied 
as source code. With the Sma//-C 
Compiler you can select and adapt 
these tools to meet your own needs. 
Documentation is included. 


> Small-Tools Item #010A $29.95 
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Handbook 
Item #006B $37.90 


MS/PC-DOS Small-C Compiler with 
Handbook and Addendum 


Item #006C $42.90 





Small-Mac: 
An Assembler 
for Small-C 


his assembler includes: a 

simplified macro facility, C lan- 
guage expression operators, object 
file visibility, descriptive error mes- 


sages, and an externally defined instruc- 


tion table. You'll receive the macro 
assembler, linkage editor, load-and- 
go loader, library manager, CPU config- 
uration utility, and a utility to dump 
relocatable files. Documentation is 
included. For CP/M systems only. 


Small-Mac Item #012A $29.95 
pee ap ae LE Sah gas ese 


> C Disk Formats 


Please indicate MS/PC-DOS or 
CP/M. For CP/M specify: Apple, 
Osborne, Kaypro, Zenith Z-100 
DS/DD, 8” SS/SD. 








Dr. Dobb's 
Toolbook of C 


his authoritative reference contains 

over 700 pages of the best C articles 
and source code from Dr. Dobb’s Journal, 
along with new material by C experts. 
The level is sophisticated and prag- 
matic, appropriate for professional C 
programmers. You'll find hundreds of 
pages of valuable C source code, 
including a complete compiler, an 
assembler, and text processing 
utilities. 


& Toolbook of C 


Item #005 


$29.95 


Bene a. Debbe Toalbook cit 

The Small-C Handbook and Small-C 
Compiler, Small-Mac Assembler, ao 
Small- Tools Text es Prox ram 





Small Wc One $109.9 98). 
Soesk Microsoft C Version 4. Oo or 
Small-C compiler. 


MS/PC-DOS Package 
Item 4005W 





$109.95 
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Assembly Language Programming 
for the 68000 & Z80 


Dr. Dobb's Toolbook 
of 68000 Programming 


Tes complete collection of practical programming tips and techniques for the 
68000 family includes the best articles on 68000 programming ever published 
in Dr. Dobb's, along with much new material. 

Contents include: 


An Introduction to the 68000 Family 
e 68000 Instruction Set 


Development Tools 
e Bringing Up the 68000: A First Step 
e A 68000 Cross- Assembler 


Useful 68000 Routines and Techniques 
e A Simple Multitasking Kernel for Real-Time Applications 
e The Worm Memory Test 
e A Mandelbrot Program for the Macintosh 


All programs are also available on disk! 

& 68000 Toolbook Item #040 $29.95 
68000 Toolbook with disk Item #041 $49.95 
Specify MS-DOS, CP/M, CP/M 8” Osborne, Macintosh, Amiga, Atari 520st. 


68000 Cross Assembler 


A: executable version of the 68000 Cross-Assembler discussed in the book 
is also available, complete with source code and documentation. Requires 


CP/M 2.2 with 64k or MS-DOS with 128k. 


> 68000 Cross Assembler Item #042 $25.00 
Specify 8” SS/SD, Osborne, or MS-DOS. 





Dr. Dobb’s Z80 Toolbook 


by David E. Cortesi 


D: Dobb's Z80 Toolbook puts the power of assembly language in the hands of 
anyone who's done a little programming. You'll find: 


e A method of designing programs and coding them in assembly language 
and a demonstration of the method in the construction of several complete, 
useful programs. 


e A complete, integrated toolkit of subroutines for arithmetic, string-hand- 
ling, and total control of the CP/M file system. 


e Every line of the toolkit’s source code is there for you to read. 


All the software—the programs plus the entire toolkit, both as source code and 
object modules for both CP/M 2.2 and CP/M Plus—is yours on disk. Most of the 
programs are included in the book, however, the disk is necessary for complete 
listings. A DRI RMAC assembler or equivalent is required. 


& Dr. Dobb's Z80 Toolbook Item #022 $25 
Dr. Dobb's Z80 Toolbook with disk Item #022A $40 
Specify 8” SS/SD, Apple, Osborne or Kaypro. 
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Te Tree Caer e 


Turbo Pascal Tools 


TURBO 
Advantage: 


Source Code Library 
for Turbo Pascal 


T his library of more than 220 routines— 

complete with source code, sample 
programs and documentation—will 
save you hours of work developing 

- and optimizing your programs! 


Routines are organized and docu- 
mented under the following categories: 
bit manipulation, file management, 
MS-DOS support, sorting, string 
operations, arithmetic calculations, 
data compression, differential equa- 
tions, Fourier analysis and synthesis, 
matrices and vectors, statistics, and 
much more! All source code is included. 


A detailed manual includes a descrip- 
tion of the routine, an explanation of 
the methods used, the calling sequence, 
and a simple example. For MS/PC- 
DOS systems. 


TURBO Advantage: Source Code 
Libraries for Turbo Pascal is also 
available with TURBO Advantage 
Complex: Complex Number Routines 
for Turbo Pascal and TURBO Advan- 
tage Display: Form Generator for 
Turbo Pascal. 


> Turbo Advantage Item #070 $49.95 
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Number _ 
Routines for 
Turbo 


TURBO 
Advantage 
Complex: 


Complex Number Routines 
for Turbo Pascal 


Were with complex numbers is 


easy with the Turbo Pascal pro- 
cedures and routines provided in 


TURBO Advantage Complex! 


TURBO Complex provides procedures 
for performing all the arithmetic oper- 
ations and necessary real functions 
with complex numbers. Each pro- 
cedure is based on predefined con- 
stants and types. By using these 
declarations the size of arrays are 
easily adapted. Each type declaration 
is a record with both a real and imagi- 
nary part. Use these procedures to 
build more sophisticated functions in 
your own programs. 


TURBO Complex also demonstrates 
the usage of these procedures in rou- 
tines for vector and matrix calculation 
with complex numbers and variables; 
simultaneous Fourier transforms; cal- 
culations of convolution and correla- 
tion functions; low-pass, high-pass, 
band- pass and band-rejection digital 


filters; and in solving linear boundary- 
value problems. 


Source code and documentation is 
included for MS-DOS systems. Some 
of the TURBO Complex routines are 
most effectively used with routines 


contained in TURBO Advantage. 


> TURBO Advantage/ 
Complex Package Item #070A $115 
TURBO Complex Item #071 $89.95 








TURBO 
Advantage Display: 


Form Generator 
for Turbo Pascal 


ow, even if you have little program- 
ming knowledge, you can design 
and process forms to fit your needs! 


TURBO Display includes a menu- 
driven form processor, 30 Turbo 
Pascal procedures and functions to 
facilitate linking created forms to your 
program, and full source code and 
documentation. For MS-DOS systems. 


Some of the TURBO Advantage: 
Source Code Libraries for Turbo 
Pascal routines are necessary to com- 
pile TURBO Display. You save $20 
when you order TURBO Advantage: 
Source Code Libraries for Turbo 
Pascal together with TURBO Display: 
Form Generator for Turbo Pascal. 
Receive both for only $99.95! 


TURBO Display: Form Generator 
for Turbo Pascal is also available 
individually for $69.95. 


> TURBO Advantage/ 


Display Package Item #070B $99.95 
TURBO Display Item #072 $69.95 


Each Turbo Advantage 
package includes 
complete source code 
on disk. 
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The 
Turbo Pascal 
Toolbook 


Edited by 


Namir Clement Shammas 


Mz your programming easier 
and more powerful with The 


Turbo Pascal Toolbook! 
You'll find: 


e an extensive library of low-level 
routines 

e external sorting and searching 
tools, presenting a new database 
routine that combines the best 
features of the B-tree, B+ and 
B++ trees 

¢ window management, to help you 

create, sort, and overlay windows 

artificial intelligence techniques 

mathematical expression parsers, 

offering two routines that convert 

mathematical expressions into 

RPN tokens 

e a smart statistical regression 
model that searches for the best 
regression model to represent a 
given set of data. 


All routine libraries and sample 
programs are on disk for MS-DOS 
systems, and over 800K of Turbo 
Pascal source code is included! 


Turbo Pascal Toolbook 

Item #080 $25.95 
Turbo Pascal Toolbook with disk 

Item #081 $45.95 
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Programming Eloquence 


STAT Toolbox 


for Turbo Pascal 


Bs convenience, power, and ver- 
satility to your statistics prograrns! 


Two statistical packages in one! 


A library disk and reference manual 
Use these powerful statistical routines 
to build your applications. 
Routines include: 
¢ statistical distribution functions 
® random-number generation 
e basic descriptive statistics 
¢ parametric and non-parametric 
statistical testing 
e bivariate linear regression, multi- 
ple and polynomial regression. 


A demonstration disk and manual 
This package incorporates the library 
of routines into a fully functioning 
statistical program. Two data manage- 
ment programs are included to facili- 
tate the storage and maintenance of data. 


Full source code is included. (For IBM 
PC’s and compatibles. Turbo Pascal 
version 2.0 or later, and PC DOS 2.0 


or later are required). 


Item #050 


STAT Toolbox $69.95 





In Calif. 800-356-2002 








Dr. Dobb's 
Toolbook of Forth 


tls comprehensive coilection of 
useful Forth programs and tutorials 
contains DDJ's best Forth articles, 
expanded and revised aioug with new 
material. You'll find sections on: 

e Mathematics in Forth 

© Modifications/Extensions 

e Forth Programs 

e Forth—the Language 

@ Implementing Forth 


You'll also find Appendixes that will 
help you convert fig Forth to Forth-83, 
and tell you how to stay up-to-date on 
the latest developments and refinements 
of this popular language. 


The screens in the book are also 
available on disk as ASCII files. 


Dr. Dobb's Toolbook of Forth 
Item #030 $22.95 


Dr. Dobb's Toolbook »f Forth with Disk 
Item #031 $39.95 


Please specify MS/PC-DOS, Apple II, 
Macintosh, or CP/M. For CP/M disks, 
specify Osborne or 8” SS/SD. 
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by Thom Hogan 


T22 MS-DOS takes you beyond 
the basics, picking up where your 
MS-DOS manual leaves off. You'll learn 
how to maximize your batch files with 
routines using redirection, filters and 
pipes, and routines that prevent acci- 
dental reformatting of your hard disk, 
redefine function keys, and locate files 
within subdirectories. Other batch 
files will implement an MS-DOS help 
system, including help text files, a 
menu system that interprets keyboard 
input, and a routine for quick redefin- 
ition of function keys. 


You'll also learn how to create con- 
ligurable AUTOEXEC.BAT files, and how 
to customize CONFIG.SYS and use 
ANSLSYS to change the appearance 
of MS-DOS. Taming MS-DOS includes 
ready-to-use assembly language pro- 
grams that enhance MS-DOS. You can 
rename directories and disk volumes, 
change file attributes, check available 
RAM and disk memory, display a 
memory-resident clock, and assign 
MS-DOS commands to ALT keys. 


The programs, including batch files 
and MS-DOS enhancements, are avail- 
able on disk with full source code. 


> Book & Disk (MS-DOS) 


$34.95 Item #59-3 
> Book 

$19.95 Item #24-0 
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by William G. Wong 






riginally featured in Micro/ 
Systems Journal, this reprint pro- 
vides ten concise chapters that will 
orient any experienced programmer to 
the MS-DOS environment. Topics 
include: program construction, char- 
acter base input and output functions, 
and file access, including an in-depth 
discussion of CP/M style vs. Unix- 
style MS-DOS file access. 


Program Interfacing to MS-DOS also 
contains sample program files, and a 
detailed description of how to build 
device drivers. The complete ten-part 
Program Interfacing to MS-DOS 
manual is available, along with the 
device driver for a memory disk and a 
character device driver, on disk with 
macro assembly source code. 


> Manual & Disk (MS-DOS) 
Item #34-8 


$29.95 





Me 
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and Libraries 
by Namir Clement Shammas 


his book will orient the advanced 

programmer to the syntax and pro- 
gramming features of the new BASICs, 
including Turbo BASIC, Quick BASIC, 
and True BASIC. You'll learn the 
details of implementing subroutines, 
functions, and libraries to permit more 
structured coding. The New BASICs 
contains many programming examples 
and ready-to-use libraries, including 
libraries for string manipulation, 
extended string management, and 
sorting and searching. You'll also find 
a binary tree library, MS-DOS files 
library, a library for Pascal-like sets, 
and much more. Programs and sub- 
routines are also available on disk, 
with full source code. MS-DOS format. 
Available in September 1987. 


> Book & Disk (MS-DOS) 


$39.95 Item #43-7 
> Book 
$24.95 Item #37-2 
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Multitasking Operating System 





The Tele Operating System Toolkit 


he unique features of this four part, 

multitasking operating system will 
allow you to fully exploit the power of 
any 8086-based machine! /é/e is writ- 
ten in C and assembly language for 
IBM PC compatibles and includes 
preemptive multitasking capabilities 
and an unlimited number of tasks. 
Tele contains full C and Assembler 
source code, as well as precompiled 
libraries. It is compatible with MS- 
DOS, Unix, and the MOSI standard. 
MS-DOS disk format. 


SK: The System Kernel 


SK includes the most crucial part of 
the Tele Operating System—the pre- 
emptive multitasking algorithm. SK 
also contains an initialization module, 
general purpose utility functions for 
string and character handling, format 
conversion, terminal support, and 
machine interface, along with a real- 
time task management system. All 
other components require SK: The 
System Kernel. 


> Manual & Disk (MS-DOS) 
$49.95 Item #30-5 
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by Ken Berry 


DS: Window Display 


DS contains BIOS level drivers for a 
memory-mapped display (the fastest 
way to display data), window manage- 
ment support and communication 
coordination between the operator 
and tasks in a multitasking environ- 
ment. DS includes funtions to create 
and delete virtual displays, and func- 
tions to overlay a portion of a virtual 
display on the physical display. An 
unlimited number of virtual displays 
can belong to any particular task, and 
an unlimted number can be in the sys- 
tem at any time. Requires SK: The 
System Kernel. 


> Manual & Disk (MS-DOS) 
$39.95 Item #32-1 


FS: The File System 
FS supports MS-DOS disk file struc- 


tures and serial communications chan- 
nels. FS manages the storage of infor- 
mation on disks with a Unix-like file 
allocation method, and is compatible 
with both Unix and MS-DOS. FS also 
features a telecommunications support 
facility that allows a common set of func- 
tions to handle both disk files and 
telecommunications. Requires SK: 

The System Kernel. 


> Manual & Disk (MS-DOS) 
$39.95 Item #65-8 


XS: The Index System 


XS implements a tree-structured free- 
form data base. XS allows names and 
data of variable length with no prac- 
tical limitation on data size. The 
algorithm used optimizes access for 
different processors and disk speeds. 
Requires SK: The System Kernel and 
FS: The File System. 


> Manual & Disk (MS-DOS) 
$39.95 Item #66-6 





The Tele Operating System 
Demonstration Disk 
Give the Tele Operating System 
a try for only $5! This demo disk 


includes a working sample of the Tele 
Operating System. MS-DOS disk format. 


> Demo Disk (MS-DOS) 
$5.00 Item #70-4 
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Bound Volume 11: 1986 


The promise of power. With the intro- 
duction of the first true 32-bit micro- 
processors, desktop computers began 
to rival minis and mainframes in power. 
Dr. Dobb's Journal of Software Tools 
covered the changes with special 
issues on the 68000, parallel proces- 
sing, artificial intelligence, the 80386, 
and multitasking. We supported the 
new chips with assemblers, translators, 
and other cross-development tools. 
Other features included a special 
graphics issue, reviews of Dan Briklin’s 
DEMO program and Jef Raskin’s Swyft- 
Card, and our sixth annual Forth 
issue. We introduced a new structured 
languages column, led by Michael 
Ham and Namir Shammas, while Ray 
Duncan and Allen Holub continued to 
provide their own valuable columns. 


m $35.75 Item #31-3 






-Toreceive all 1986 listings on disk, 
_ PREE with your Bound Volume 11 or- | 








_ der, specify one of the following disk 


_ formats: MS-DOS, Macintosh, or _ 


p> $35.75 Item#31-3LIST 





isk in MS-DOS, Macin- 
nats for only $9.95 


Be $9.95 


|) plete index on disk, 
? 4 $225! YOU SAVE $138! 









© $30.75 






Dr. Dobb's Bound Volumes 


ours for ONLY 





Bound Volume 1: 1976 


The working notes of a technological 
revolution. Before there was Apple, 
DDJ put a programming language on 
the first microcomputers and became 
a chronicler and instrument of the 
microcomputer revolution. 


& $30.75 Item #13-5 


Bound Volume 2: 1977 
Running light without overbyte. By 
year two the formula was clear: serious 
technical guestions handled with a 
minimum of reverence, much source 
code, anda commitment to tight coding. 


& $30.75 Item #16-X 
Bound Volume 3: 1978 


The roots of Silicon Valley growth. 
The S-100 bus was hashed out in DD/’s 
pages. Steve Wozniak and others pub- 
lished in DDJ code that would help 


build an industry. 
me $30.75 Item #17-8 


Bound Volume 4: 1979 
In the midst of the gold rush. Three 


_ years before IBM moved in, the neigh- 


borhood was less civilized. DD/ pub- 


lished a gold mine of tips, tricks, and 


algorithms. 


Item #14-3 


Bound Volume 5: 1980 
C and CP/M. 1980 saw an all-CP/M 
issue, including Gary Kildall’s history 
of CP/M, and Ron Cain’s original 
Small-C compiler. 


& $30.75 Item #18-6 


Bound Volume Set Eleven years of 
fascinating history and useful code, 
along with a complete index on disk, 
for only $225. Please specify one of 
the following disk formats: MS-DOS, 
Macintosh, or Kaypro. 

Bound Volumes 1-11 
$229 Item #72-OINDX - 
Bound Volume 6: 1981 

The first of Forth. This was the year 
DDJ \aunched its first Forth issue and 
“Dr. Dobb's Clinic.” Plus: PCNET, the 
Conference Tree, and 6809 Tiny BASIC. 


P $30.75 Item #19-4 


Bound Volume 7: 1982 
Legitimacy. DD/ observed the IBM 
phenomenon, reviewed MS-DOS and 
CP/M-86, and looked forward to fifth- 


generation computers. 


& $35.75 Item #20-8 
Bound Volume 8: 1983 


Power tools. Professional software 
development ona PC was getting easier; 
DDJ helped, with Small-C, the RED 


editor, and an Ada subset. 


& $35.75 Item #00-3 


Bound Volume 9: 1984 
Shaping things to come. In 1984 DD/ 
examined new programming environ- 
ments: Prolog, expert systems, Modula-2, 
and a $49.95 Pascal. Plus Allen 
Holub’s GREP, UNIX internals, and 


two encryption systems. 


& $35.75 Item #08-9 
Bound Volume 10: 1985 


The year of living dangerously. In 
1985, iconoclastic DD/J beat Apple to 
the goal of adding more memory, a 
SCSI port, and a hard disk to the 
Macintosh. Also: powerful software 
tools in C, Modula-2, Forth, Pascal, 
assembly language, and Prolog. 


> $35.75 Item #21-6 
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Order Form 


ORDER NOW! ORDER NOW! ORDER NOW! ORDER NOW! ORDER NOW! ORDER NOW! 





NAME 

ADDRESS 
NA Te ceeesrcaensienseeeninaptameymeineessntacncecacaceiscioneesl OY LI A saree comecccncee ME 
DAY PHONE 


(Please use street address, not P.O. Box) 








[_] Check enclosed. Make payable to: 
M&T Publishing, Inc., 501 Galveston Dr., Redwood City, CA 94063 


[_] Charge My: 
L_] Visa [_] MasterCard [_] American Express. 


Name on card 








Account No. Expiration Date 


Signature Sh SSS In Calif. 800-356-2002 





For disk orders, please indicate format. Refer to ad for standard format 
availability for each product. 


[| ]MS/DOS [_] Amiga CP/M For Small-Windows , indicate: 
|] Macintosh [_] Atari 520st [_] Kaypro [_] Osborne [] Microsoft C version 4.0 compiler 
[_] Apple II []8”SS/SD [Apple [_] Small-C Compiler 
[_] Zenith Z-100 DS/DD [_] Lattice-C Compiler 
[ Turbo C 
QUANTITY ITEM# DESCRIPTION UNIT PRICE TOTAL PRICE 


i eeeeeeSeSeSSSSSeeeSFsFsmsFsFseseseseF 








SUB-TOTAL 
CA residents must add applicable sale tax on merchandise total a SALES TAX 
Shipping must be included with order. See rates below. SHIPPING 
TOTAL ORDER 
In U.S. For Bound Volumes, add $3.25 per eign airmail rates available on request. For 
book. Add $9.25 for Special C Packages. For Fast Service and reduced shipping costs, 
other books and disks, add $2.25 per item. Germans may order direct from: Markt & 
Outside U.S. For Bound Volumes, add $6.25 Technik, Buchverlag, Ilans-Pinsel-Strasse 2, 


per book surface mail. Add $18 surface mail 8013 Haar bei Miinchen. Call Germany 089- 
for Special C Packages. For other books and 4613-383 or 089-4613-711 for prices in Deutsch 
disks, add $5.25 per item surface mail. For Marks. 
3132 


M&T Books & Software 
ORDER FORM 


Please fold along fold-line and staple or tape closed. 
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If Mailed 
In The 


BUSINESS REPLY MAIL 


First Class Permit No.871 Redwood City, CA 





Postage Will Be Paid By Addressee 


M&T Books & Software Tools 


501 GALVESTON DRIVE 
REDWOOD CITY, CA 94063 


Please fold along fold-line and staple or tape closed. 























Turbo Tech Report 
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The newsletter/disk publication for Turbo Pascal® users 


Are you looking for powerful utilities written in Turbo 
Pascal that you can use to develop software or incorporate 
into your programs? Are you interested in improving and 
expanding your Turbo Pascal programming skills? 

Then you deserve a subscription to Turbo Tech 
Report, the bimonthly newsletter /disk publication from 
the publishers of Dr. Dobb’s Journal and Micro/Systems 
Journal. Each issue delivers more than 250K of Turbo 
Pascal source code programs on disk, and 24+ pages of 
articles, Turbo Pascal software and book reviews, and 


analysis and commentary. 
It’s the only publication 
delivering such focused tech- 
nical articles with code on 
disk. Each valuable issue 
contains: 

¢ Articles on topics like 
speedy 3D graphics, math- 
ematical expression parsers, 
creating global gotos, mem- 
ory resident and AI applica- 
tions and more—all written 
by Turbo experts. 

e Reviews of the latest 
Turbo Pascal software pro- 
grams from companies like 
Borland International, Blaise 


— Yes! I want a one-year subscription to Turbo Tech Report (6 g 


issues with 6 disks) for $99. 
Format: [| PC/MS-DOS [_] Macintosh 
CP/M: [_] Kaypro [_] Osborne [_] Apple 


PAYMENT MUST ACCOMPANY ALL ORDERS 


[_] Check/money order enclosed. 


[_] Charge my: ~—— VISA ~——M/C ~—— AmExp. 
a a tsp 
Signature 

Name 

Address 

SEN Zip 





Orders outside U.S.: add $30. 


CIRCLE 119 ON READER SERVICE CARD 


Computing, Media Cybernetics, Nostradamus, and more! 

¢ News and commentary detailing the latest 
products and developments in the Turbo Pascal 
programming community. 

° A disk filled with Turbo Pascal code! You'll get 
the Turbo Pascal utilities and routines discussed in the 
newsletter’s articles, as well as applications developed by 
Turbo users from around the world. You'll receive 
programs that make labels, generate menus, provide 
faster screen access, transfer files, and more! 


If you're an expert Turbo 
Pascal programmer or a 
novice interested in 
expanding your Turbo skills, 
you need a publication that 
speaks your language: Turbo 
Tech Report. Subscribe 
today at the special price of 
just $99—that’s 33% off the 
regular price of $150. To 
order by credit card, call toll- 
free 1-800-533-4372. Or 
mail the coupon with your 
payment to Turbo Tech 
Report, 501 Galveston 
Drive, Redwood City, CA 
94063. 
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MULTITASKING 


With 
MultiDos Plus 
‘multitasking for the IBM-PC.”’ 


Ideal for developing applications 
in process control, data acquisi- 
tion, communications, and other 
areas. Check these features which 
make MultiDos Plus an unbeat- 
able value. 


e Run up to 32 programs concur- 
rently. 

e Your software continues to run 
under DOS. No need to learn a 
new operating system. 

e Use the compilers you already 
have. Supports software written in 
most languages. 

¢ Operator commands to load/run 
programs, change priority, check 
program status, abort/suspend / 
resume programs. 

e Programmatic interface via INT 15H 
for the following. 

* Intertask message communica- 
tion. Send/receive/check mes- 
sage present on 64 message 


queues. 

* Task control by means of 
semaphores. Get/release/check 
semaphores. 

* Change priority-256 priority 
levels. 

* Suspend task for specified 
interval. 


Spawn and terminate external 

and internal tasks. 

Disable/enable multitasking. 

and more! 

e Independent foreground /back- 
ground displays. 

e Access to DOS while applications 

are running. 


_Hardware/Software Requirements 


IBM PC/XT/AT or true clone. Enough 
memory to hold MultiDos Pius (48 
KB) and all your application programs. 
Also may need 4 or 16 KB memory 
for ‘‘hidden screens’ for each active 
task. MS-DOS (or PC-DOS) 2.0 or 
later operating system. 


only: $24.95 OR 
$99.95 


with source code 







Outside USA add $5.00 shipping and handling. 
Visa and Mastercard orders only call 
toll-free: 1-800-872-4566, ext. 350., or 
send check or money order to: 


NANOSOFT 


13 Westfield Rd, Natick, MA 01760 
MA orders add 5% sales tax. 
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#include 
#include 


static 
static 
static 


/* 
= 
“Ff 
inits( p 
char 


{ 


-RN MATCHING 


Listing Three (Text begins on page 46.) 


FINDCMD 
MODULE: STATE .C 


COPYRIGHT (C) 1987 by Charles F. Bowman 
All Rights Reserved. 


This module contains the routines nesessary 
to implement the state machine 


<stdio.h> 
"findcmd.h" 
int tos = <-l; 
int pat[ 100 j; 
struct stk stk[{ 100 ]; 
INITS: initialize the state machine (transition table) 
) 
register int i? 
1 2 


pat[(0] = PATBEG; 
while( *p != NIL ){ 


/* 
* Add each char in pattern to state array 
RT 
switch( *p ) { 
case *2?*s 
pat [i] = QUEST; 
break; 
case *="s 
pat [i] = ASTER; 
break; 
default: 
pat [i] = *p; 
break; 
} 
ptt; 
i++; 


} 
pat[i] = PATEND; 


return( 0 ); 


STATE: driving routine for the state machine; 
performs the actual pattern matching. 


state(n ) 


char 


{ 


register int state; 
char *ptr; 

ptr = n; 

tos = -1l; 

state = 0; 

forts 5):{ 


/* Forever */ 


switch( pat[state] ) { 
case PATBEG: 
break; 
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/* Begin state */ 








case ASTER: /* Wild card */ 
Li Siptet lh) (l= NIL) 
/* 
* Save machine state 
*/ 


PUSH( state-1l, ptr+l ); 
} 
while( (*ptr != pat[state+l]) && (*ptr != NIL) ){ 


/* 
¥ Skip non-matching chars 
* up to end of string 
“Fy 

PUrtt; 


} 


break; 


case PATEND: 
if¢t .*pte: == NIL.) { 
jx 
* Match! 
“J 
return( 1 ); 
} else if ( TOS ){ 


/* End state */ 


/* 
* No match - restore saved state 
*/ 
POP( state, ptr ); 
} else { 
/* 
* No match! 
*/ 
return( 0 ); 
} 
break; 
case QUEST: /* Any 1 character */ 
PLETts 
break; 
default: 
if( *ptr != pat[state] ) { 
if ¢ TOS} { 
/* 
* Restore saved state 
*/ 
POP ( state, ptr ); 
} else { 
/* 
* Fail - no match! 
*/ 
return( 0 ); 
} 
} else { 
/* 
= Equal - move on 
xf 
ptr+t; 
} 
break; 
} 
state++; /* Next state */ 
} 
} End Listing Three 
Listing Four 
/* 
* 
* F INDCMD 
* 
* MODULE: FINDCMD.H 
* 
x COPYRIGHT (C) 1987 by Charles F. Bowman 
* All Rights Reserved. 
* 
*/ 


(continued on next page. ) 
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UC 
NOW: a FORTH 


system that 
meets your needs! 


Available for most personal 
computers and DEC minis, 
this FORTH-83 language 
from an established company 
will meet the needs of the 
novice and the expert alike! 











Beginners will enjoy the clear 
style of the Users Guide. The video 
editor is easy to use, and the debug/ 
decompile utilities make program- 
ming a snap. Leave questions on 
our Bulletin Board Service for quick 
answers. Our optional telecom- 
munications package provides 
superb modem access. 










Advanced Programmers will 
et more details of the system from 
the comprehensive Programmers 
Guide. Optimized code and full 
aie space utilization make 
UNIFORTH one of the fastest 
FORTHs for large applications. Use 
the complete macro assembler for 
time-critical routines. Text file, 
operating system, graphics, sound, 
and string support are included. | 


Engineers will use the 
multitasking and high-level interrupt 
features to handle simultaneous 
functions. We have ROM-based 
systems for many popular single- 
board computers, or you can use 
one of our optional cross-compilers 
for one of a dozen processors to 
pe a your own systems. Need 

elp? We offer custom program- 
ming, classes and other consulting 
services. 























Scientists will appreciate the full 
floating-point support. Optional 
utilities include a 2-D plotting 
package, astronomical programs 
and catalogs, image processing and 
artificial intelligence. 















Public-Domain Samplers 
are available for many systems. 






Call or write for our free catalog. 
We suereniee that you'll enjoy 
UNIFORTH, or your money back! 







Unified Software Systems 
P.O. Box 21294 
Columbus, OH 43221 
(614) 459-7735 


BBS: (614) 459-7736 
(300/1200 baud, 24 hrs.) 
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Listing Four (Listing continued, text begins on page 46.) 


/* 
x 


108 


*/ 
#define 


'#define 


#define 


/* 

* 

“/ 
#define 
#define 
#define 
#define 


/* 

* 

*/ 
#define 
#define 
#define 
#define 
#define 


#define 


/* 

* 

*/ 
#define 
#define 
#define 


char 
/* 


* 


ef 


struct dosdate { 
unsigned sec : 
unsigned min 
unsigned hour : 
unsigned day $ 
unsigned month 
unsigned year : 


}e 


/* 
*y 


struct 


+ 

/* 
* 
my 


Header file for FINDCMD.C 


NIL "Or 
FLDSEP ';' 
MAXPATH 250 


Machine states 


ASTER 
QUEST 
PATBEG 
PATEND 


128 
cee 
130 
131 


DOS file attribute bits 


RDONLY 
HIDDEN 
SYSTEM 
DIRECT 
ARCHIV 


SA_SIZE (foo) 


0x01 
0x02 
0x04 
0x10 
0x20 


Macros for stack manipulation 


/* dir separator in path */ 


/* Read only file */ 
/* Hidden file */ 
/* System file */ 
/* Directory file */ 
/* Archive bit */ 


(sizeof (fo00) /sizeof (foo[0])) ) 


stk[tos] .state; y = stk[tos].ptr; tos--; } 


TOS (tos == -1 ? 0: 1) 
POP (x,y) {x = 
PUSH (x, y) { tos++; stk[tos].state = 


*slcase(); 


Internal DOS date 


structure 


se Se Be Se Be 


SJ Pomm ow 


=e 


(x); stk[tos].ptr = 


/* Second (intervals of 2) */ 
/* Minutes */ 

/* Hours */ 

/* Day of month */ 

/* Month of year */ 

/* Year since 1980 */ 


DOS FCB / DIR ENTRY - Set to DTA 


dirent 
char 
char 
struct 
long 
char 


{ ; 

dintel 21° TF 
dattr; 

dosdate ddate; 
dsize; 

dname[ 13 ]; 


Used to print attribute bits of 


struct attribs { 


/* 


*/ 
struct 


val; 
chr; 


int 
int 


Used to save an restore machine 


stk 
int 
char 


{ 
state; 
*ptrs 


files 


state 


} 


End Listings 


Dr. Dobb’s Journal, October 1987 








~ be Pa dpe > 
- Diese 2 








SAS Inc. 
Announces 








Lattice C Compilers for Your IBM Mainframe 


Two years ago... 

SAS Institute launched an effort to develop a 
subset of the SAS® Software System for the 
IBM Personal Computer. After careful study, 
we agreed that C was the programming 
language of choice. And that the 

Lattice® C compiler offered the quality, 
speed, and efficiency we needed. 


One year ago... 

Development had progressed so well that we 
expanded our efforts to include the entire 
SAS System on a PC, written in C. And to 
insure that the language, syntax, and 
commands would be identical across all 
operating systems, we decided that all future 
versions of the SAS System—regardless of 
hardware—would be derived from the same 
source code written in C. That meant that 
we needed a C compiler for IBM 370 main- 
frames. And it had to be good, since all our 
software products would depend on it. 

So we approached Lattice, Inc. and asked 
if we could implement a version of the 
Lattice C compiler for IBM mainframes. 
With Lattice, Inc.’s agreement, development 
began and progressed rapidly. 


Today... 
Our efforts are complete—we have a first- 
rate IBM 370 C compiler. And we are 
pleased to offer this development tool to 
you. Now you can write in a single 
language that is source code compatible with 
your IBM mainframe and your IBM PC. We 
have faithfully implemented not only the 
language, but also the supporting library and 
environment. 

Features of the Lattice C compiler for 
the 370 include: 


@ Generation of reentrant object code. 
Reentrancy allows many users to share 
the same code. Reentrancy is not an 
easy feature to achieve on the 370, 
especially if you use non-constant 
external variables, but we did it. 

@ Optimization of the generated code. We 
know the 370 instruction set and the 
various 370 operating environments. We 
have over 100 staff years of assembler 
language systems experience on our 
development team. 

@ Generated code executable in both 
24-bit and 31-bit addressing modes. You 
can run compiled programs above the 
16 megabyte line in MVS/XA. 

@ Generated code identical for OS and 
CMS operating systems. You can move 
modules between MVS and CMS 
without even recompiling. 

@ Complete libraries. We have 
implemented all the library routines 
described by Kernighan and Ritchie (the 
informal C standard), and all the library 


routines supported by Lattice (except 
operating system dependent routines), 
plus extensions for dealing with 370 
operating environments directly. 
Especially significant is our 
byte-addressable Unix®-style I/O 
access method. 

@ Built-in functions. Many of the 
traditional string handling functions are 
available as built-in functions, generating 
in-line machine code rather than function 
calls. Your call to move a string can result 
in just one MVC instruction rather than a 
function call and a loop. 


In addition to mainframe software 
development, you can also use our new 
cross-compiler to develop PC software on 
your IBM mainframe. With our cross- 
compiler, you can compile Lattice C 
programs on your mainframe and generate 
object code ready to download to your PC. 

With the cross-compiler, we also offer 
PLINK86™ and PLIB86™ by Phoenix 
Software Associates Ltd. The Phoenix link- 
editor and library management facility can 
bind several compiled programs on the 
mainframe and download immediately 
executable modules to your PC. 


Tomorrow... 

We believe that the C language offers the 
SAS System the path to true portability and 
maintainability. And we believe that other 
companies will make similar strategic 
decisions about C. Already, C is taught in 
most college computer science curriculums, 
and is replacing older languages in many. 
And almost every computer introduced to 
the market now has a C compiler. 














City 





C, the language of 
choice... 


C supports structured programming with 
superior control features for conditionals, 
iteration, and case selection. C is good for 
data structures, with its elegant implemen- 
tation of structures and pointers. C is 
conducive to portable coding. It is simple 
to adjust for the size differences of data 
elements on different machines. 


Continuous support... 

At SAS Institute, we support all our 
products. You license them annually; we 
support them continuously. You get updates 
at no additional charge. We have a 
continuing commitment to make our 
compiler better and better. We have the 
ultimate incentive—all our software 
products depend on it. 


For more information... 
Complete and mail the coupon today. 
Because we've got the development tool for 
your tomorrow. 


® 


SAS Institute Inc. 

SAS Circle, Box 8000 

Cary, NC 27511-8000 

Telephone (919) 467-8000 x 7000 


i want to learn more about: 


(] the C compiler for MVS software developers 
C the C compiler for CMS software developers 
(J the cross-compiler with PLINK86 and PLIB86 


| 

| 

| 
today...so I’ll be ready for tomorrow. | 
Please complete or attach your business card. | 
OR es eg ee ts Kee BU yl fae Oe hel a | 
a ae wa ss aN a ct ae | 
Company | 
PNR se lal eels Oe ae a ee | 
| 

| 

| 


State (og aI 


NOONE a Se oY pe SS ee ora 


Mail to: SAS Institute Inc., Attn: CC, SAS Circle, Box 8000, Cary, NC, USA. 
27511-8000. Telephone (919) 467-8000, x 7000 


DDJ 10/87 






SAS is the registered trademark of SAS Institute Inc., Cary. NC, USA. Lattice is the registered trademark of Lattice, Inc. PLINK86 and PLIB86 are trademarks of Phoenix Software Associates Ltd. 
UNIX is the trademark of AT&T. Copyright © 1985 by SAS Institute Inc. Printed in the USA. 
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Listing 1. QuickBASIC library to implement opaque matrices. 
'" QuickBASIC implementation of an opaque numeric matrix 
' Matrix is stored as arrays of columns 


' OPTION BASE O must be used, although the row/column indices 
" start at one. 


SUB InitMat (Mat#(1), Max.Row%, Max.Col%) STATIC 
' Initialize matrix 


Mat#(0) = Max.Row% + Max.Col% / 1000 
FOR I% = 1 TO UBound (Mat #) 
Mat#(I%) = 0 
NEXT I% 
END SUB ' CreateMat 


SUB StoreElem(Mat#(1), Row%, Col%, Elem#, OK%) STATIC 


' Store Elem# in matrix position (Row%,Col%) 
' OK% is zero if error has occurred, -1 if operation was done 


STATIC I%, MaxR%, MaxC% 


MaxR% = INT (Mat#(0) ) 
MaxC% = 1000 * (Mat#(0) - MaxR%) 


IF (MaxR% < Row%) OR (MaxC% < Col%) OR (Row%’ < 1) OR (Col% < 1) THEN 
OK% = 0 ' Bad row or column numbers. 
EXIT SUB 

END IF 

OK% = -1 

' Calculate index 

I% = Row% + (Col% - 1) * MaxR% 


'" for the arrays of rows representation use 
: I% = Col% + (Row%’ - 1) * MaxC% 


' Store element 

Mat#(I%) = Elem# 

END SUB ' StoreElem 

SUB RecallElem(Mat#(1), Row%, Col%, Elem#, OK%) STATIC 


" Recall Elem# in matrix position (Row%,Col%) 
' OK% is zero if error has occurred, -1 if operation was done 


STATIC I%, MaxR%, MaxC% 


MaxR$% 
MaxC% 


INT (Mat # (0) ) 
1000 * (Mat#(0) - MaxR%) 


IF (MaxR% < Row%) OR (MaxC% < Col%) OR (Row% < 1) OR (Col% < 1) THEN 
OK% = 0 ' Bad row or column numbers. 
EXIT SUB 

END IF 


OK% = -1 


' Calculate index 

I% = Rows + (Col% - 1) * MaxR% 

' for the arrays of rows representation use 
: I% = Col% + (Row% - 1) * Maxc% 


' Recall element 
Elem# = Mat #(I%) 


END SUB ' RecallElem 





End Listing One 
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Listing Two 
Listing 2. True BASIC module that implements an array-based binary tree. 
MODULE Binary Tree 


! TRUE BASIC module that implements a single binary tree 
! Copyright (c) 1987 Namir Clement Shammas 


DECLARE DEF NIL, TRUE, FALSE 
SHARE Left (1), Right(1), Node_Count, Num Nodes, Bin_Tree$(1) 


a 
‘ 
J 
: 


}-~-—~~—~—--—-~--- Module initialization 


LET Num Nodes = 0 


f Sacer ieeeneerimeneetogetet local functions ----------- 


DEF NIL = MAXNUM 
DEF TRUE = 1 
DEF FALSE = 0 


SUB Initialize (Item$) 
! Subroutine to initialize the binary tree 


LET Num Nodes 
LET Tree Size 
LET Bin_Tree$ (1) 

LET Left(1) = NIL 


1 
i 


LET Right (1) = NIL 


END SUB 


Items 


SUB Search(Item$, Found, Index) 


! Search for Item$ and return Index if found. 








FORTH 
LEADING THE NEW GENERATION 
OF COMPUTER LANGUAGES 


The Forth Interest Group 
(FIG) is the association of 
programmers, managers 
and engineers who create 
practical, Forth-based solu- 
tions to real-world prob- 
lems. Their uses of Forth 
include: 


Instrument Control 
Data Acquisition 
Stand-alone Devices 
Expert Systems 
e Business Accounting 
e. Graphics Systems 


Each FIG member re- 
ceives the bimonthly mag- 
azine Forth Dimensions. 


INTEREST 
GROUP 


Its tutorials, innovative tech- 
niques, and extensive pro- 
gram listings are published 
exclusively for FIG mem- 
bers, and are refereed by 
premier experts in the Forth 
community. 


The 9th Annual Forth 
Convention will be held at 
the Red Lion Inn in San 
Jose, Californiaon Novem- 
ber 13 and 14, 1987. Each 
year, Forth enthusiasts at- 
tend the program of lec- 
tures and panel discus- 
sions by the field’s most 
respected experts, and 
exhibits by Forth vendors 
as well. 


To join FIG or for further 
information, call us at 


(408) 277-0668 or write 


P. O. Box 8231, 


San Jose, CA 95155, USA. 
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(continued on page 113) 


COMPUTING” ng 
Your Original AMIGA™Monthly Resource 
FEATURING 


*Complete Amiga Hardware and Software reviews 
*A vast and growing library of over 110 PDS Disks 
*Solid and informative for both the advanced 

and beginning Amiga User 
*Understandable program listings and tools 
*Step by Step Hardware projects 


Amiga Users have made Amazing Computing™ the longest running 
Monthly magazine dedicated to the Commodore Amiga. If you are 
searching for Amiga technical information that is both current and 
comprehensive, then be amazed by the pioneer Amiga Magazine, 
Amazing Computing - your Original AMIGA Monthly Resource. 
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Ten Reasons 
to Use PeaceNet 





] | don’t like working with 
e others 

PeaceNet is a computer network and communication 
system for people who believe that global planning 
and cooperation are necessary to reverse a trillion-dol- 
lar-per-year arms race; it is linking users throughout 
the United States and in over 70 other countries. 


I’ve got all the information I'll 
eever need 
PeaceNet is for those who appreciate that information 
is always growing and changing; its bulletin boards, 
conferences, and databases provide information about 
everything from Central America to Star Wars. 


3 | love playing phone tag 

@ PeaceNet’s electronic mail system renders those 
endless conversations with secretaries and answering 
machines obsolete. 


| don’t know how to use my 
e computer 
PeaceNet helps novices with simple, entertaining man- 
uals and round-the-clock staff for answering their 
questions. 


5 l enjoy copying, labeling, and 
e stamping letters 

PeaceNet enables you to send messages to hundreds of 
other users with one simple command. 





I’ve got plenty of money 
eto waste on postage and 
phone bills 
PeaceNet is for people who want to save money; it lets 
you send documents across the world faster than 
Federal Express" for pennies per page. 


| don’t mind getting action 
ealerts a week late 

PeaceNet does mind and can help your organization 

send out time-urgent alerts instantly. 


| don’t have the right kind of 
e computer equipment 
PeaceNet is available to anyone with a computer term1- 
nal and a modem. 


An effective peace movement 


eisn’t worth 50 cents a day 
PeaceNet users disagree. 


] It’s all hopeless, anyway 
@ Then why read this magazine when Modern 
Wrestling would suffice? 












Nearly a thousand people and fifty groups are already 
using PeaceNet, including Beyond War, the National 
Freeze Campaign, and Nuclear Times. If you want to join 
them in an unprecedented international dialogue for 
peace, write or call us today for details. 





CS [> WN te The First Global Computer Network for Peace 
= eace Ce @ 1918 Bonita, Berkeley, CA 94704 (415) 486-0264 





Listing Two (Listing continued, text begins on page 140.) 


LET Found 
LET Index 


FALSE 
: 


DO WHILE (Index <> NIL) AND (Found = FALSE) 
IF Bin_Tree$ (Index) = Item$ THEN 
LET Found = TRUE 
ELSE 
IF Bin_Tree$ (Index) < Item$ THEN 
LET Index = Right (Index) 
ELSE 
LET Index = Left (Index) 
END IF 
END IF 
LOOP 


END SUB 

SUB Insert (Item$) 

! Insert Item$ in the "dynamic" binary tree structure 
, LET Num_Nodes = Num Nodes + 1 

IF Num Nodes > Tree Size THEN 


LET Tree Size = Num Nodes 
MAT REDIM Bin Tree$ (Tree Size), Left (Tree Size), Right (Tree Size) 


END IF 
LET Index = 1 
LET Found = FALSE 


DO WHILE Index <> NIL 
IF Bin_Tree$ (Index) < Item$ THEN 
IF Right (Index) <> NIL THEN 
LET Index = Right (Index) 


ELSE | 
LET Right (Index) = Num_Nodes 
LET Index = NIL 
END IF 
ELSE 
IF Left (Index) <> NIL THEN 
LET Index = Left (Index) 
ELSE 
LET Left (Index) 
LET Index = NIL 
END IF 
END IF 
LOOP 


Num Nodes 


LET Bin Tree$ (Num_Nodes) = Item$ 
LET Right (Num Nodes) = NIL 
LET Left (Num Nodes) = NIL 


END SUB 


END MODULE End Listing Two 
Listing Three 


| Listing 3. Pascal code for emulating opaque complex data types. 


TYPE 
Opaque Complex type = “Opaque Complex_type record; 


{ record type is deliberately empty } 


Opaque Complex type record = RECORD 
END; 


(continued on next page) 
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STRUCTURED PROGRAMMING 


Listing Three (Listing continued, text begins on page 140. ) 
§ § pag 
Actual Complex type = “Actual Complex _type_record; 


Actual Complex type record = RECORD 
es Reel, 
Imag : REAL; 
END; 


Convert Complex = RECORD 
CASE BOOLEAN OF 
TRUE : (Opaque : Opaque Complex _type); 
FALSE : (Actual : Actual Complex type) 
END; 





FUNCTION Convert Opaque to Actual ( Opaque Complex : Opaque Complex_type ) 
a5 Actual _Complex_type; 


VAR Transfer : Convert Complex; 


BEGIN 

Transfer.Opaque := Opaque Complex; 

Convert Opaque to Actual := Transfer .Actual 
END; { Convert Opaque to Actual } 


FUNCTION Convert Actual to Opaque ( Actual Complex : Actual Complex _type ) 
- Opaque Complex _ type; 





VAR Transfer : Convert Complex; 





BEGIN 
ey Transfer.Actual := Actual Complex; 














Publication Quality 
Scientific Graphics 


Over 125 C routines make 
scientific plotting easy 


linear, log, & polar plots 

bar charts & Smith charts 

contour plots with labels 

3-D curves, 3—-D surfaces 

4 curve types, 8 markers, errorbars 
14 fonts, font editor 

unlimited levels of $4uP* scripts 


4096 x 3120 resolution in 16 colors 
on EGA, Tecmar, Sigma boards 


> zoom, pan, window and merge plots 
> high resolution printer dumps 


is SOURCE INCLUDED for persona/ use only 

i $350. Demo $8 
256k, IBM, AT&T, Corona PCs, DOS 2.xx, 3.xx 
Most boards, printers, and plotters supported 


Microsoft, Lattice, DeSmet, Aztec, C86 compilers 


CANADA’S 
SOURCE FOR C 






- Canadian Sales 
- Canadian Service 
- Canadian Technical Support 
- Canadian Product Knowledge 


+e te veud 





We specialize in programming & development software 







LIFEBOAT « LATTICE e GREENLEAF « PHOENIX 
SOFTCRAFT ¢ MICROSOFT ¢ BLAISE « ESSENTIAL 
AGE OF REASON « DESMET « AZTEC 
MARK WILLIAMS « GIMPEL * ROUNDHILL « GSS 
HALO « FAIRCOM « RAIMA « INTEL « etc. « etc. « 


















Polar Plot Test 
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Call for full price list Dealer enquiries welcome 













We know our products—we use them! 


SCANTEL SYSTEMS LTD. 
801 York Mills Rd., Don Mills, Ont., M3B 1X7 
(416) 449-9252 





Scientific Endeavors Corporation 
Route 4, Box 78 Kingston, TN 37763 (615) 376-4146 
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Convert Actual to Opaque i= Transfer .Opaque 
END; { Convert Actual to Opaque } 


FUNCTION Real Imag Complex(Re, Im : REAL) 


: Opaque Complex type; 


{ Convert from Real/Imaginary numbers to opaque complex numbers } 


VAR Transfer : Actual Complex type; 
BEGIN 
NEW (Transfer) ; 
Transfer*.Reel := Re; 
Transfer*.Imag := Im; 


Real Imag Complex:= Convert Actual to Opaque (Transfer) ; 


END; { Real Imag Complex } 


FUNCTION Polar Complex(Angle, Modulus : REAL) 


: Opaque Complex type; 


{ Convert from polar coordinates to opaque complex numbers } 


VAR Transfer : Actual Complex type; 

BEGIN 
NEW (Transfer) ; 
Transfer”.Reel := Modulus * SIN(Angle); 
Transfer”.Imag := Modulus * COS(Angle); 


Real Imag Complex:= Convert Actual to Opaque (Transfer) ; 


END; { Polar Complex } 


PROCEDURE Get Real Imag(MyComplex : 
VAR Re, Im : 


Opaque Complex type; 
REAL { output}); 


{ Convert opaque complex numbers into Real/Imaginary components } 


VAR Transfer : Actual Complex type; 


(continued on next page) 


INTELLIGENT PROGRAMMING 


A Selection of Books from Springer-Verlag 


New edition! 


PROGRAMMING IN PROLOG 
THIRD EDITION 


W.F. Clocksin and C.S. Mellish 


Now in its third revised edition, Programming in Prolog in- 
cludes an account of up-to-date programming techniques using 
accumulators and difference structures, new information on 
syntax errors, and operator precedences that are compatible 
with the most widely used implementations. Also contains 
substantial revisions and improvements in presentation. 


1987/281 pp/7 illus/Softcover $19.95 
ISBN 0-387-17539-3 


Fully updated edition! 
CATALOGUE OF ARTIFICIAL INTELLIGENCE TOOLS 
SECOND REVISED EDITION 


Edited by A. Bundy 


Revised to keep pace with the rapid changes taking place in Al, 
the Catalogue of AI Tools contains paragraph-length descrip- 
tions of current AI techniques and software. Nearly 300 items 
covering the areas of Automatic Programming, Computer 
Architecture, Expert Systems, Logic Programming, Natural 
Language, and many more. 
1986/168 pp/Softcover $27.50 ISBN 0-387-16893-1 
(Symbolic Computation) 

a e 

Springer-Verlag 

New York Berlin Heidelberg Vienna 
London Paris Tokyo 


PASCAL USER MANUAL AND REPORT 
Revised for ISO Pascal Standard 
THIRD EDITION 


K. Jensen and N. Wirth 


The Pascal classic has been up-dated to incorporate the ISO 
standard. Written by the designer of the language, this new edi- 
tion retains the rigor and precision that has made the Pascal 
User Manual and Report a definitive reference source for 
nearly a decade. 


1985/266 pp/76 illus/Softcover $17.50 
ISBN 0-387-96048-1 


THE SCIENCE OF PROGRAMMING 
D. Gries 


Now in a handy paperback edition, The Science of Program- 
ming is the first book that not only describes basic program- 
ming principles, but which leads the reader step-by-step 
through the application of these principles. The beginner and 
the experienced programmer will find this book to be full of 
useful information. 


1981/366 pp/Hardcover $29.00 ISBN 0-387-90641-X 
Softcover $19.00 ISBN 0-387-96480-0 
(Texts and Monographs in Computer Science) 


To order these and other Springer-Verlag computer science titles, send a 
check or money order (plus $2.50 for shipping) to: Springer-Verlag New 
York, Inc., Attn: G. Kiely, 175 Fifth Avenue, New York, NY 10010. NY, NJ, 
and CA residents please add sales tax. To order by credit card, call TOLL 
FREE 1-800-526-7254 (in NJ, 201-348-4033). 
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Listing Three (Listing continued, text begins on page 140.) 


BEGIN 
Transfer := Convert Opaque to Actual (MyComplex) ; 
Re := Transfer’.Reel; 
Im := Transfer”. Imag; 


END; { Get Real Imag } 


PROCEDURE Get Polar(MyComplex : Opaque Complex type; 

7 VAR Angle, Modulus : REAL { output}); 
{ Convert opaque complex numbers into polar components } 
VAR Transfer : Actual Complex _type; 


BEGIN 
Transfer := Convert Opaque to Actual (MyComplex) ; 
WITH Transfer* DO BEGIN 
Modulus := SQRT(SOR(Reel) + SQR(Imag) ); 
Angle := Imag / Reel; 
END; { WITH } 


END; { Get Polar } 


FUNCTION Add Complex(C1l, C2 : Opaque Complex type) : Opaque _Complex_type; 


VAR Transfer : Actual Complex _type; 
Re, Im : REAL; 


BEGIN 

{ Get first complex number } 

Transfer := Convert Opaque to Actual (Cl); 

Re := Transfer’*.Reel; 

Im := Transfer’. Imag; 

{ Get second complex number } 

Transfer := Convert Opaque to Actual (C2); 

Re := Re + Transfer’.Reel; 

Im := Im + Transfer’. Imag; 

{ Update result } 

Transfer*.Reel := Re; 

Transfer*.Imag := Im; 

Add _ Complex := Convert Actual_to Opaque (Transfer) ; 
END; { Add Complex } End Listing Three 


Listing Four 
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Listing 4. Modula-2 code for opaque complex data types. 


DEFINITION MODULE Complex; 


EXPORT QUALIFIED Complex, RealImagComplex, PolarComplex, 
TYPE Complex; (* opaque type *) 


PROCEDURE RealImagComplex (Re, Im : REAL) : Complex; 
(* Convert from Real/Imaginary numbers to opaque complex numbers *) 


PROCEDURE PolarComplex(Angle, Modulus : REAL) : Complex; 
(* Convert from polar coordinates to opaque complex numbers *) 


PROCEDURE GetRealImag(MyComplex : Complex; VAR Re, Im : REAL (* output *)); 
(* Convert opaque complex numbers into Real/Imaginary components *) 


PROCEDURE GetPolar(MyComplex : Complex; VAR Angle, Modulus : REAL (* output*)); 
(* Convert opaque complex numbers into polar components *) 


PROCEDURE AddComplex(Cl1, C2 : Complex) : Complex; 


END Complex. (continued on page 119) 
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THE PROGRAMMERS SHOP 


helps save time, money and cut frustrations. Compare, evaluate, and find products. 





RECENT DISCOVERY 


HUMMINGBOARD 386-Develop 2.6 or 
7.9 times faster than a8 MHZAT. 
AT or XT addin board uses dual 
processors for Speed and Hardware 
Debugging. 16 MHZ or 20 MHZ. Call 
about Benchmarks, Trial Program. 


Al-Expert System Dev't 


Arity Combination Package PC $ 979 


System - use with C MS $ 229 
SQL Dev’t Package MS $ 229 
Auto-Intelligence PC $739 
CxPERT - shell for C MS $ 295 
Experteach - Powerful, samples PC $ 339 
Exsys PCS 289 
Runtime System PC $ 469 
Level 5 MS $ 659 
Intelligence/Compiler PC 3 739 
T.I.: PC Easy PC $ 435 


Personal Consultant Plus PC $2589 
Personal Consultant Runtime PC $ 85 
Turbo Expert-Startup(400 rules) PC $ 129 

Corporate (4000 rules) PC $ 359 


Al-Lisp 





Microsoft Lisp V5.1 MS $ 159 
PC Scheme LISP - by TI PC 3 83 
Star Sapphire MS $ 459 
TransLISP - learn fast MS $ 79 
TransLISP PLUS MS $ 125 


Others: IQ LISP ($239), IOC LISP ($269) 


Al-Prolog 


APT - Active Prolog Tutor - build 
applications interactively PC $ 49 
ARITY Prolog - full, 4 Meg 
Interpreter - debug, C, ASM PC $ 229 
COMPILER/Interpreter-EXE PC $ 569 
Standard Prolog MS $ 77 
MacProlog Complete MAC $ 269 
MicroProlog - Prof. Entry Level MS $ 85 
MicroProlog Prof. Comp./Interp. MS $ 439 
MPROLOG P550 PC'S 175 
Prolog-86 - Learn Fast MS $ 89 
Prolog-86 Plus - Develop MS $ 199 
TURBO PROLOG by Borland PC $ 69 


Basic 


BAS_C - economy MS $ 179 
BAS_PAS - economy MS $ 135 
Basic Development System PC $ 105 
Basic Development Tools PC § 89 
Basic Windows by Syscom rc > “3 


BetterBASIC PC $129 
Exim Toolkit - full PC $ 45 
Finally - by Komputerwerks PC $ 85 
Mach 2 by MicroHelp ho 
QBase - screens MS $ 79 
QuickBASIC PC $ 69 
Quick Pak-by Crescent Software PC $ 59 
Stay-Res PO 3.99 
True Basic PC4:°79 
Turbo BASIC - by Borland PC s: . OF 


aaa 


dB2C Toolkit V 2.0 by Software 
Connection. 220+ dBIII functions in 
C source, file handler, windowing, 
interface to db__VISTA, c-tree, 
dBCIII, MS, Lattice, Instant C. 


No Royalties MS $ 289 


700 + Programmer’s Products 


The Programmer’s Shop carries every program- 
mer’s software product for MSDOS, PCDOS, 
CPM, Macintosh, Atari, and Amiga systems. We 
help you choose the best tools for you. Most popular 
products are in stock, available for quick delivery. 
We will gladly special order a product for you at 
no charge — just allow a few extra days for 
delivery. 

Need Cross Compilers, Translators, or the right 
Fortran compiler? Ask us. 

Our Services: 
+ Programmer’s Referral List 
* Compare Products 
* Help find a Publisher 
* Evaluation Literature FREE 


* Over 700 products 
+ BBS - 7 PM to 7 AM 617-826-4086 National Accounts Center 


C Language-Compilers 





AZTEC C86 - Commercial PC $499 
C86 PLUS - by Cl MS $359 
Datalight C - fast compile, good code, 

4 models, Lattice compatible, Lib 


source. Dev’rs Kit mo. 77 
Datalight Optimum - C MS $ 99 

with Light Tools by Blaise PC $168 
Lattice C - from Lattice MS $269 
Let’s C Combo Pack PC $ 99 
Microsoft C 5.0- Codeview MS $275 
Microsoft Quick C MS $ 69 
Rex - C/86 by Systems & 

Software - standalone ROM MS $695 


Turbo C by Borland PC $ 69 
C Libraries-Files 

C Index by Trio/PLUS MS $319 
BTree by Soft Focus MS $ 69 
CBTREE- Source, noroyalties MS $ 99 
CTree by Faircom - noroyalties MS $315 
rtree - report generation PC $239 
dbQUERY - adhoc, SQL-based MS Call 
dbVISTA - pointers, network. 


Object only - MSC, LAT, C86 Call 
Source - Single user MS Call 
dBx - translator to library MS $299 


C-Screens, Windows, Graphics 





C Worthy Interface Lib. PC $249 
Curses by Aspen Scientific PC $109 
dBASE Graphics for C PC $ 69 


ESSENTIAL GRAPHICS - fast PC $185 


FontWINDOW/PLUS PC $229 
GraphiC - new color version PC $279 
Greenleaf Data Windows PC $159 
w/source PC $289 


Light WINDOWS/C-DatalightC PC $ 79 
TurboWINDOW/C - for Turbo C PC $ 79 
Windows for C - fast PC $189 
Windows for Data - validation PC $319 


Vitamin C - screen I/O PC $159 
View Manager - by Blaise PC $199 
ZView - screen generator MS $139 - 





Atari ST & Amiga 


We carry full lines of Manx & Lattice. 


Call for a catalog, literature and solid value 


800-421-3006 


THE PROGRAMMER'S SHOP “ 


Your complete source for software. services and answers 


5-D Pond Park Road, Hingham, MA 02043 
Mass: 800-442-8070 or 617-740-2510 8/87 
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RECENT DISCOVERY 


XENIX 386 Toolkit by Santa Cruz. 
Tools & OS kernel support 4 Gigabyte 
address space, demand paging, virtual 
memory paging. Includes MS C, MASM, 
debugger, file utilities, link kit, runtime 





library. Pe-s379 
dBASE Language 
Clipper compiler PC $399 
dBASE II MS $329 
dBase III Plus PC $429 
dBASE III LANPack PC $649 


DBXL Interpreter by Werd Tech PC $139 
FoxBASE+ - single user 
Quicksilver by Word Tech 


dBASE Support 


dAnalyst PC $ 89 
dBase Tools for C PC $ 65 
dBrief with Brief PC Call 


dBC ISAM by Lattice MS $169 
Documentor - dFlow superset MS $229 
Genifer by Bytel-code generator MS $279 


QuickCode HI Plus MS $239 
R&R Report Generator MS $139 
Seek-It - Query-by-example PCS 79 
Silver Comm Library MS $139 
Tom Rettig’s Library PC $-79 


UI Programmer - user interfaces PC $249 


Fortran & Supporting | 


50:More FORTRAN 
ACS Time Series MS $465 
I/O Pro - screen development PC $129 
MS Fortran - 4.0, full °77 MS $279 
No Limit - Fortran Scientific PC $109 
PC-Fortran Tools - xref, pprint PC $165 
RM/Fortran MS Call 
Scientific Subroutines - Matrix MS $129 


Multilanguage Support 


BTRIEVE ISAM MS $185 
BTRIEVE/N-multiuser MS $455 
GSS Graphics Dev’t Toolkit PC Ssi5 
HALO Development Package MS $389 


Graphics PS $205 
Hi-Screen XL - Lotus-style menu, 
windows PC $119 


Informix 4GL-application builder PC $789 
Informix SQL - ANSI standard PC $639 
NET-TOOLS - NET-BIOS PC $129 
Opt Tech Sort - sort, merge MS $ 99 
PANEL MS $215 
Pfinish - by Phoenix MS $229 
Polyboost - speed I/O, keyboard PC Call 
Prime Factor FFT - 8087/287 PC $145 
PVCS Corporate or Personal MS Call 
QMake by Quilt co. MS $ 79 
Report Option - for Xtrieve MS $109 


Screen Sculptor PC $ 89 
SRMS - new version MS $159 
Synergy - create user interfaces MS $375 
Xtrieve - organize database MS $199 


ZAP Communications- VT 100 PC $ 89 


wheal 


RTC PLUS by Cobalt Blue. Translate 
FORTRAN 77 and RATFOR to C except 
F771/O, FORTRAN character, and 
complex expressions. Some DEC F77 
extensions. Library C Source. MS $399 


Note: All prices subject to change without notice. Mention this ad. Some prices 
are specials. Ask about COD and POs. Formats: 3” laptop now available, plus 
200 others. UPS surface shipping add $3/item. 
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ae ement tasks 
—ShILIB™ — performs all the database manag 
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b/LIB eliminates the need for BASIC statements such as: Open, File 
ead, Write, Close, Field. As, Line Input, Print #f, Put, LSet, RSet and 
replaces them with powerful call routines to let you: 
e create relational file structures e have up to 24 DBF or NDx files open 
e access fields by field name or number ¢ manage over 4 billion bytes per file 
e index on one or many key fields ¢ write programs to interface directly 
¢ find all records that match a key with dBASE Ill applications 
All the power you need to tackle any job! 
b/LIB calls look like this: 


e CALL GetREC (file, status%, record#, recdata$ ) 


—¥» returns into recdata$ the data from record# of the file file%; 
— status% shows successful completion. 


Some other db/LIB routines: 
¢ OpenDBF() Creates or opens Datafile 
¢ DefineSTR() Defines data structure 


e PutREC() Writes a record to disk 
¢ OpenNDX() Creates or opens Index file 


db/LIB routines are calied directly from BASIC 

e Links with BCOM or BRUN modules 

¢ Conforms to the QuickBASIC standard CALLing convention 
You already know how to use it! 
b/LIB makes you more productive by: 


e letting your programs work on any 
datafile 

¢ finding on partial keys, or next, prior 

¢ finding records in large files in seconds 





e AddKEY() Puts a key into Index 
e GetKEY() Finds a record based on key 
e DelKEY() Deletes a key from Index 






e employing dynamic string allocation 

e assisting in conversion of BASIC 
data files to db/LIB’s DBF format 

¢ maintaining unique key, and ‘deleted’ 


¢ configuring the pool segment for status 
target machine e trapping and diagnosing error 
¢ managing internal cache memory conditions 


buffers 
db/LIB takes your BASIC application seriously! 


b/LIB utilizes the dBASE Ill file format, a recognized standard. 
e db/LIB is written to the highest specifications to assure top performance. 

* Full Documentation and on-disk code are the building blocks of a DBMS. 

e System Requirements: QuickBASIC 2.01/DOS 2.0+/256K memory 


Put our experience to work for you! 


(800) 992-3383 AJS PUBLISHING, INC. 
In California Call = PO. Box 379 
(818) 985-3383 a North Hollywood, CA 91603 
9:00 am - 5:00 pm Se / 
Pacific Time AN 
VISA, MasterCard Accepted 












tf database management is one of your basic 

_ heeds, then db/LIB should be your next call. 

ecsnrng perform as described or your money 
ack. 
















db/LIB is a trademark of AJS Publishing, Inc. 


a _——— Microsoft is a trademark of Microsoft Cor 


socome : BASE Ill is a registered trademark of Ashton-Tate 


“Professionals in Software” 


Does db/LIB...? 








YES! 


Now you can put all the perform- 
ance, speed, and programming 
convenience of Microsoft's New 
QuickBASIC compiler to work on 
your dBASE files. 


YES! 


db/LIB creates and manages DBF, 
NDX, and DBT files that are byte- 
for-byte identical to dBASE Ill files. 


YES! 


Using db/LIB, programs written in 
QuickBASIC can read and write 
existing dBASE II and dBASE Ill+ 
files, without conversion. 


YES! 


db/LIB works with QuickBASIC 
3.0, non-coprocessor version. 


YES! 


QuickBASIC and db/LIB open up 
additional processing options, like 
graphics and indexing on memo 
files. So powerful you can build 
partial indexes, keep more files 


open, and even write your own 
dBASE utilities! 


QB+db/LIB=DBMS 


The combination of db/LIB and 
QuickBASIC provides you a very 
flexible, alternative development 


environment for existing dBASE 
installations. 


ORDER NOW! 


db/LIB is available today, and can 
return your investment the first 
time you use it. 





Listing Four (Listing continued, text begins on page 140.) 
IMPLEMENTATION MODULE Complex; 


FROM MathLib0O IMPORT sqrt, sin, cos; 


TPE programming tools 





ComplexRecord = RECORD *Clipper, FOXBASE+, 
ae dBASE, QuickSilver 
END; 
(* opaque type mus be a pointer *) The Ul Programmer 
, Complex = POINTER TO ComplexRecord; 


Ul is the first professional code generator; we 
wrote Ul for programmers who want to automate 
their work but cannot use code that is ‘almost’ 
good enough. If your user interfaces include 


PROCEDURE RealImagComplex(Re, Im : REAL) : Complex; 
(* Convert from Real/Imaginary numbers to opaque complex numbers *) 


ES 5 ee bounce-bar menus, pop-up help screens and 
BEGIN the other features of today’s best programs, you 
NEW(C); will gain an order of magnitude in productivity 
: C*.Reel := Re; with UI. 
C*.Imag := Im; 
RETURN (C) Ul is a second generation, programmable pro- 
END Real ImagComplex; duct — so your code comes out your way. 


Application specific edits, for instance, can be 
placed in the UI ‘template’ which controls the 
generation. Edit the screen appearance until it 


FUNCTION PolarComplex (Angle, Modulus : REAL) : Complex; 
(* Convert from polar coordinates to opaque complex numbers *) 


i ellie 


VAR C : Complex; ‘looks and feels’ perfect. Everytime you generate 
. code, your special logic is preserved. 
4 BEGIN a é 
NEW(C) ; Speaking of editing the screen, Ul includes a 
: C*.Reel := Modulus * sin(Angle); powerful, 3-D screen editor, so you can draw 
, C*.Imag := Modulus * cos(Angle); pop-up help boxes over your pull-down menus, 
RETURN (C) over your application. 
END PolarComplex; 
PROCEDURE GetRealImag(MyComplex : Complex; VAR Re, Im : REAL The Documentor 
(* output. *)); 
r (* Convert opaque complex numbers into Real/Imaginary components *) To run Doc, you just tell it the name of the main- 


| line routine and make sure your printer has a lot 


| BEGIN - of paper! (Sure, you can have the output go to 
‘ Re := MyComplex’.Reel; the screen or a file, too.) 
' Im := MyComplex%.Imag; 


END GetReal Imag; You can tailor your documentation to include any 


or all of: a table of contents, system tree diagram 


J aoe 
PROCEDURE GetPolar (MyComplex : Complex; VAR Angle, Modulus : REAL Be (2 ie 108), MerekG hy ia ea) 
(* output*)) ; charts for each module, action diagrams (modern 
(* Convert opaque complex numbers into polar components *) style flow charts) for each PRG or procedure, 
DBF listings (structure, indexes, more), where 
; et used/updated listings for fields and all variables 
WITH. MyConptex T — by module and by line number within each 
Modulus := sqrt (Reel*Reel + Imag*Imag) ; hore 
Angle := Imag / Reel; 
END; : : 
% : Our written money-back satisfaction guarantee 
END GetPolar; = 
, set a new standard when we began it in 1985. 
| PROCEDURE AddComplex(Cl, C2 : Complex) : Complex; (Return rate to date: 0.6% and dropping!) No 
VAR C : Complex; copy protection, royalties or other nonsense. 
, Re, Im : REAL; 
BEGIN Suggested retail: $295 each, (800) support 
i (* Get first complex number *) included. At your dealer today. Call us for a very 
Re := Cl1*.Reel; special offer on our latest release! (800) 233- 
Im := C1l*.Imag; 3569 or, in NY, (212) 406-7026. 
(* Get second complex number *) 
Re : 


= Re + C2%.Reel; 
) Im := Im + C2%.Imag; 
(* Update result *) a 
, C*.Reel := Re; 


| C*.Imag := Im; 





: Pye te The Computer Aided Software 
END AddCo ; ‘ ; ; 

, Se toe Sears Engineering Corporation 

233 Broadway, Suite 869, New York, NY 10279 

CIRCLE 90 ON READER SERVICE CARD 


Dr. Dobb’s Journal, October 1987 119 


YOUR SYSTEM'S 
KEY COMPONENT 








The Only Magazine By And For 
Advanced Micro Users. 





At last there is a magazine that brings you the strictly 
technical but practical information you need to stay 
up-to-date with the ever changing microcomputer 
technology .. . Micro/Systems Journal. Micro/Systems 
Journal is written with the needs of the systems 
integrator in mind—the individual who’s involved in 
putting together the hardware and software pieces of 
the microcomputer puzzle. 


In each issue of Micro/Systems Journal you'll find 
such useful and progressive articles as: 


e Interfacing to Microsoft Windows 
e Unix on the PC 


¢ 80386 Programming 
¢ High Resolution PC Graphics 


¢ Using 80286 Protected Mode 
¢ Multiprocessing and Multitasking 


You'll get the hands-on, nuts and bolts information, 
insight and techniques that Micro/Systems Journal is 
famous for .. . in-depth tutorials, reviews, hints . . . the 
latest information on computer integration, networks 
and multi-tasking, languages, and operating systems .. . 
hard-hitting reviews. 


To start your subscription to Micro/Systems 
Journal, simply fill out one of the attached cards or 
write to Micro/Systems Journal, 501 Galveston Dr., 
Redwood City, CA 94063. You'll receive a full year (6 
issues) of Micro/Systems Journal for just $20, and 
enjoy the convenience of having M/SJ delivered to your 
doorstep each month. Don’t wait . . . subscribe today! 


/] Yes! | want to subscribe to "75 

|” | Miero/ Systems Journal, “Ne 
aad save over 15% off the cover price. 

[ ]1 Year (6 issues) $20 [ ] 2 Years (12 issues) $35 


(_] Please charge my: ] Visa (_] MasterCard (_] American Express 





a Payment enclosed a Bill me later 


Cea ¢ CB. ate 
Signature 

Name 

Address 

City eC LL Zip 





Savings based on a full one-year cover price of $23.70. Canada and Mexico add $3 for surface mail, $7 for airmail per 
year. All countries add $12 for airmail per year. All foreign subscriptions must be prepaid in U.S. dollars drawn ona U.S. 
ge Please allow 6-8 weeks for delivery of first issue. 


A Publication of M & T Publishing, Inc. 3021 
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turn this 
into this! 


MASTER«KEY 
No Other Product Comes Close! 


An EXPERT may not know the solution, but always 
knows where to find it. 


MASTER+KEY HELPS ANYONE solve those 
confusing and frustrating software puzzles more 
rapidly and easily than any other software available, 
at any cost! It gives you know-how within hours that 
may otherwise take years of experience. Create a 
new program from an old one. DON’T REINVENT 
THE WHEEL! 


MASTER:«KEY - Smart! 

MASTER<sKEY is an intelligent self-documenting 
MS-DOS reverse assembler. Its sophisticated 
procedures swiftly race through massive and baffling 
object code files to effortlessly discover potential 
trouble spots. 


MASTER+KEY - Educational! 

YOU DONT NEED TO KNOW ASSEMBLY 
LANGUAGE! MASTER-KEY will take any program 
from your IBM-compatible computer and return fully- 
documented, easily-understood assembly language 
source code (Microsoft MASM 4.0 compatible). 


MASTER*KEY - Easy To Use! 

MASTER*KEY works both automatically from the 
DOS command line or interactively from menus 
similar to Lotus Corporation’s 1-2-3 or Symphony. 
No need to remember any new commands or con- 
tinually refer to a manual. Use it immediately! 


Minimum System Requirements: 
256K + 8088/8086/80186/80286/80386 PC 
MS-DOS or PC-DOS 2.0 + 
One 360K DSDD Floppy Drive (IBM PC Format) 


MS-DOS is a trademark of Microsoft. 
PC-DOS is a trademark of IBM. 








C:>DEBUG PROGRAN 
-DiOCO 136 


- COM 


3 Ei, -Q 


8848:0100 EB 18 49 GE 63 6F 72 72-65 63 74 20 44 4F 53 20 k.Incorrect DOS O 
8848:0110 76 65 72 73 69 6F GSE OD-OA 24 SO B4 30 CD 21 86 version..®P40N!. 
8848:0120 EO 3D 36 01 72 OS 3D OA-02 76 O09 BA O02 O1 B4 O09 ‘#6.r.8..v.:..4. 

O 8848:0130 CD 21 CD 20 58 EB 2F MIM Xk/ O 















O O 
HOO100: JMP Short HOO11A 300100 EB1i8 Sot 
FR Se RHO n OO mte ta see wet en aee ative pea ale Re dewip wine mc 
O DB “Incorrect DOS version" 300102 496E636F727265 O 
DB ODh 300117 
DB OAh 300118 
O DB “s" 300119 24 O 
HOO11A: PUSH AX 3;0011A 5O P 
O NOV AH, 30h 3;0011B B430 _9 O 
INT 2ih 31-DOS_Ver_Nuaber 3;0011D CD21 4 
XCHG AH, AL 3;0011F 86E0 Lue 
CMP AX,0136h 300121 3D3601 =6_ 
‘3 JB HOO12B 2 sie i lake ghee 300124 7205 oe O 
CMP AX ,O20Ah 3700126 3DOA02 ey 
JBE PO ee Bs et eee eg oe STL ae 3001239 7609 v_ 
O HOO12B: MOV DX,0102h 30012B BAO201 act O 
MOV AH,OS9h 3;0012E B409 pai 
INT 2ih 3i-Display_String 300130 CD21 ne 
INT 20h ;TERM_normally:20h ;00132 CD20 
OQ grnn naan nner nnn nnn neon anne enn n nee ei enn eee n en ee- O 
H00134: POP AX 3;00134 S8& xX 
JMP Short HOO166 300135 EB2F ae 
O ) 
MASTER*KEY XREF - PROGRAN.XRF Page i 
O O 
0102h i2i 2F5 301 3290 
O20Ah 126 
O3CBh 12B 
O i-Display_String $ 130 S91 619 
1-DOS_Ver_Nuaber : 11D 
HOO100 : 100 
OQ  Hoo11A : 100 11A 
HOO12B 124 12B 
HOO134 129 134 
HOO166 i358 
O TERM_normally:20h 132 


MASTER*KEY will guide you step by step to: 


: 


3. 


. Help you learn assembly language, if you desire. 


Discover how any program runs or why 

it doesn't. 

Alter or remove unwanted object code from 
any program. 


. Incorporate routines from compiled programs 


into other assembly language, Basic, C, or 
Pascal programs. 


Dealer/Distributor Inquiries Welcome 


9. Make software more compatible with your 


computer. Be certain a questionable program 


won't damage your system BEFORE yourunit. 
. Modify software to operate with other 


versions of DOS. 


. Customize your COMMAND.COM or other 


executable program directly or by reassem- 


bling your altered MASTER*KEY source code. 





(not copy protected) 


Order Now! Just $79% 


Phone orders accepted on MC or VISA 
Send checks to: 


Sharpe Systems Corporation 
2320 E Street, La Verne, CA 91750 


$82.45 (includes $2.50 shipping) 
$87.65 in California (includes tax & shipping) 
C.0.D. orders add $2.00 


(714) 596-0070 





Sharpe Systems Corporation 
2320 E STREET, LA VERNE, CA 91750 


714-596-0070 
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MASTER*KEY should not be confused with any 
public domain or share ware software that may 
have a similar name or be a similar product. 





“The Ada programming language shall be the single, 
common, high order programming language for... 


"..allcomputers that are integral to, 
physically a part of, dedicated to, or 
essential in real time to a performance 
of the mission of weapon systems... 
used for specialized training, diagnostic 
testing and maintenance, simulation, 
or calibration of weapon systems... 
used for research and development of 
weapon systems...Use of validated 
compilers is required...this directive Is 
effective immediately. 

—DoD Directive 5405.2, 53/5Q/S/ 


“..Defense computer resources used In 
intelligence systems, for the command 
and control of military torces...all mayor 
software upgrades...all other applica- 
tions [some exceptions) in keeping with 
the long range goal of establishing Ada 
as the primary DoD higher order lan- 
guage...waivers to the policy...shall be 
strictly controlled and closely reviewed... 
this directive is effective immediately. 
—DoD Directive 5405.1, 4/2/87 





@ Special Introductory Offer For 


Apollo, H-P and Sun Users 





® & ee New Alsys Toolset For 68000 Ada 
Builds Unique Project Environment 


Organizations serious about the 680X0 
architecture, and serious about working 
with the government, want a lot more than 
just validated Ada compilers. They want 
quality solutions; production quality com- 
pilers and quality programming tools. 
Just what Alsys offers. Alsys’ new 

68000 Ada Developer’s Toolset includes: 

* AdaProbe, a unique source-level sym- 
bolic debugger and program viewer; 

¢ AdaXref, an inter-unit cross- 
referencing utility; 

* AdaReformat, a pretty printing tool for 
reformatting source files to selectable 
conventions; and 

* AdaMake, an automatic recompilation 
facility. 

Consider, too, all those special Ada 


“manager tools” that are part of the 


Alsys Version 3 compilation system: 
the Family Manager, the Unit Manager, 
and the Library Manager. 

Together, they implement the new 


Alsys Multi-Library Environment that 
allows teams of programmers to share 
thousands of logically organized 
compilation units. 

Alsys 68000 compilers are in a class 
by themselves; highest code quality, 
maturity, reliability, robustness, superior 
optimization technology, unexcelled error 
messages...And now, with the new 
development tools, they are at the core of 
an Ada project environment unique in 
the industry. 

Here is our special INTRODUCTORY 
OFFER. Between now and October 31, 
1987, order any of our 68000 Ada 
compilers and we will include the com- 
plete Toolset FREE. AdaProbe, AdaXref, 
AdaReformat, AdaMake. 

Ada is NOW. Alsys solutions are NOW. 
Call or Write. 


elsuyss 





Alsys, Inc. * 1432 Main Street * Waltham, MA 02154 « U.S.A. * Phone: (617) 890-0030 


Offer valid in U.S.A. and Canada, only. 


YES, I'm interested in your Introductory Offer. Send more 











The Many Facets of information on the Toolset and your 68000 compilers. 
Ou ality ________Send me your free brochure, The Many Facets of Quality. 
| Name 
Company 
Address 
ac cede tee inte shalt iy 
Phone 


* Ada is a registered trademark of the U.S. Government (AJPO). 





Alsys, Inc. * 1432 Main Street * Waltham, MA 02154 
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COLUMNS 


here seems to be a plethora of 

new C compilers hitting the 
market at present. This month I’m 
going to look at four of them: Data- 
light’s Optimum-C; Microsoft's Quick 
C; Microsoft’s C compiler, Version 5.0; 
and Borland’s Turbo C. 

I’m going to take a different ap- 
proach from most reviews and leave 
out the traditional tables and bench- 
marks. I’m doing this for several rea- 
sons. First, tables of features don’t 
usually contain new information; 
you can read the advertisements as 
well as I can, and there's no point in 
my duplicating that information 
here. Next, I’ve found that bench- 
marks aren't a particularly reliable 
way to evaluate compilers. That is, a 
compiler that does poorly in compil- 
ing a single benchmark subroutine 
often does well when you use it for a 
large, complex program and vice 
versa. Also, raw speed is not the most 
important thing in a compiler, at 
least not to me. 

As a programmer I spend most of 
my day trying to debug computer 
programs. Consequently, a good de- 
velopment environment is critical to 
me. I frankly don't care if my pro- 
gram takes 50 milliseconds longer to 
run or is 512 bytes larger than it could 
be, provided that I can minimize the 
time I spend in debugging and the 


by Allen Holub 


code quality is adequate. Most pro- 
grams are I/O-bound anyway. That 
is, the fastest execution speed in the 
world doesn't speed up the rate at 
which you can update the screen or 
get input from a human being. 

Of course, my own criteria may be 
different from yours. If you’re doing 
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C CHEST 


Language Wars Over Cs 





engineering applications where you 
measure run time in hours rather 
than seconds, a few milliseconds 
here and there can be significant. If 
you fall into that category, the fol- 
lowing reviews will still be useful but 
you should probably look at a review 
that has benchmarks, too. 

All four compilers are quite good 
from the language perspective. They 
all support the complete C language 
(including bit fields), and they all in- 
corporate various ANSI extensions, 
such as function prototypes and 
structure assigniuent. They all sup- 
port floating point, including in-line 
8087 code. They all include a version 
of the Unix make utility. They all 
come with the start-up module 
source code and have a good set of 
DOS interface functicns. There are 
differences, however. 


Optimum-C, Version 3.0 

Datalight’s Optimum-C is a pleasant 
surprise. First of all, it generates spec- 
tacularly good code—better than any 
of the other compilers reviewed 
here. It not only does the usual opti- 
mizations—such as constant folding, 
strength reduction, branch optimiza- 
tion, and aliasing—but it does some 
very sophisticated stuff too—con- 
stant and variable propagation, dead 
assignment elimination, automatic 
register allocation, global common 
subexpression elimination, loop in- 
variant removal, and loop induction 


variables. The four basic memory 
models are supported (no huge or 
tiny), but mixed-model program- 
ming is difficult to do. 

Optimum-C has good ROM sup- 
port, though it doesn’t come with the 
special linker that you need to locate 
specific segments in particular places 
in memory. (One of these days I'll 
write a linker for C Chest.) It provides 
an integer-only option that lets you 
compile without any floating-point 
support, and it provides you with a 
stripped-down start-up module that 
helps put together a ROMed environ- 
ment. 

Datalight includes a list of known 
bugs on the distribution disks. All 
compilers have bugs, but Datalight is 
honest enough to admit it, thereby 
helping you program around them. 
This honesty should be commended. 
It’s a small thing, but it helps a lot 
when you want to get your program 
running. 

The two drawbacks of Optimum-C 
are the lack of debugging support 
and a library that is too small. You 
pretty much have to rely on embed- 
ded printf( ) statements to debug 
your programs. For this reason I 
don’t really recommend the compil- 
er if you're not already an experi- 
enced C programmer. The run-time 
library is adequate but just so. All the 
essential functions are there, but 
there’s no gravy—for example, 
there’s a getenv( ) but no putenv( ). 
The library does include some useful 
stuff not found in the other compil- 
ers. There’s a mouse-interface li- 
brary and a set of interrupt-manage- 
ment functions that are useful for 
terminate-and-stay-resident utilities 
(Microsoft C has these too, however). 

The compiler includes all the li- 
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10 important Reasons 
C Programmers Use 
ur File Manager 





1. It’s written in C. 

Clearly the growing language of 
choice for applications that are fast, 
portable and efficient. All of 
db__VISTA’s source code is written in C. 


2. It's fast — almost 3 times faster 
than a leading competitor. 

Fast access that comes from the 

unique combination of the B-tree 
indexing method and the “network” or 
direct “set” relationships between 
records. A winning combination for 
fast performance. 


3. It’s flexible. 

Because of db__VISTA’s combination 
of access methods, you can program 
to your application needs with ultimate 
design flexibility. Use db__ VISTA as an 
ISAM file manager or to design 
database applications. You decide 
how to optimize run-time 
performance. No other tool gives you 
this flexibility without sacrificing 
performance. 

db_ VISTA is also well behaved to 
work with most any other C libraries! 


4. It’s portable. 


db_ VISTA operates on most popular 
computers and operating systems like 
UNIX, MS-DOS and VMS. You can 
write applications for micros, minis, or 
even mainframes. 


5. Complete Source Code 
available. 

We make our entire C Source Code 
available so you can optimize 
performance or port to new 
environments yourself. 


6. It uses space efficiently. 
db__VISTA lets you precisely define 
relationships to minimize redundant 
data. Itisnon-RAM resident; only 
those functions necessary for opera- 
tion become part of the run-time 
program. 





7. Royalty free run-time. 

Whether you’re developing applications 
for yourself or for thousands, you pay 
for db__VISTA or db__ QUERY only 
once. If you currently pay royalties to 
someone else for your hard work, isn’t 


it time you switched to royalty-free 
db_ VISTA? 


db_VISTA’ 


Features 

¢ Multi-user support allows flexibility to run on 
local area networks 

¢ File structure is based on the B-tree indexing 
method 

¢ Transaction processing assures multi-user 
consistency 

¢ File locking support provides read and write 
locks 

¢ SQL-based db_ QUERY is linkable 

¢File transfer utilities included for ASCII, 
dBASE optional 

¢ Royalty-free run-time distribution 

¢ Source Code available 

¢ Data Definition Language for specifying the 
content and organization of your files 

¢ Interactive database access utility 

¢ Database consistency check utility 

File Management Record 
and File Sizes 

¢ Maximum record length limited only by acces- 
sibleRAM 

¢ Maximum records per file is 16,777,215 

¢ Maximum file size limited only by available disk 
storage 

¢ Maximum of 256 index and data files 

¢ Key length maximum 246 bytes 

¢ No limit on number of key fields per record 

¢No limit on maximum number of fields per 
record 

Operating System 
& Compiler Support 

¢Operating systems: MS-DOS, PC-DOS, 
UNIX, XENIX, UNOS, ULTRIX, Microport, 
VMS 

¢ C compilers: Lattice, Microsoft, IBM, DeSmet, 
Aztec, Computer Innovations, Turbo C, XENIX 
and UNIX 


8. SQL-based db_QUERY 
Add our new C-linkable, SQL-based, 
ad hoc query and report-writing 
companion product to provide a 
simple relational view of your 
db__VISTA applications. Without 
compromising speed. 


9. Free tech support. 

60 days of free technical and application 
development support for every Raima 
product. Of course, extended support 
and training classes are also available 
at your place or ours. 








10. Upward database 
compatibility 

Start out with file managementina 
single-user PC environment—then 
move up toa multi-user LAN ora VAX 
database application with millions of 
records. You'll still be using db__VISTA. 
That’s why so many C programmers 
are choosing db__ VISTA. 


But don’t just take our word 


for it. 
‘“Raima’s customer support and documentation 
are excellent. Source code availability and 
royalty-free run-time is a big plus.” 
Dave Schmitt, President 
Lattice, Inc. 
“db_VISTA has proved to be an all-round high 
performer in terms of fast execution, flexibility and 
portability, and has undoubtedly saved us much 
time and development effort.” 
John Adelus, Hewlett-Packard 
Office Productivity Division 


30-day Money Back Guarantee! 
Try db__VISTA in your environment 
for 30 days and prove it to yourself. If 
not completely satisfied, return it fora 
full refund. 


Price Schedule 
db_VISTA db__QUERY 
CL Single user $ 195 $ 195 
LJ Single user w/Source $ 495 $ 495 
OC Multi-user $ 495 $ 495 
CJ Multi-user w/Source $ 990 $ 990 
NEW: 
L) VAX Multi-user $ 990 $ 990 
CJ VAX Multi-user w/Source $1980 $1980 
Order Now. 


Put db_VISTA to work in your 
application program. Ordering is 
easy—simply call toll-free. We'll answer 
your technical questions and get you 
started. Call today. 


Call Toll-Free Today! 
1 (800) db-RAIMA 
(800/327-2462) or 
206/828-4636 


pice 
RAIMA" 


CORPORATION 





3055 - 112th NE, Bellevue, WA 98004 USA 
(206) 828-4636 Telex: 6503018237 MCI UW 
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 GHEST 
(continued from page 124) 


brary sources and an adequate full- 
screen editor that might be useful if 
you don't have one already. 


Quick C and 

Microsoft C, Version 5 

I should preface my comments by 
saying that I’m looking at beta ver- 
sions of both Quick C and the C com- 
piler. Consequently, some of the 
things I’m saying here may become 
untrue later. (Both programs should 
be released in the final version by the 
time this article makes it into print.) 
I'll report back periodically as I get 
updates of these products. I’m also 
willing to give the people at Micro- 
soft the benefit of the doubt, for the 
present. If they say something is go- 
ing to be fixed, I'll believe them. 
Nonetheless, if the final version of 
the product still has problems, I'll dis- 
cuss the problems in depth in this col- 
umn. 

The similarities between Quick C 
and Turbo C are unavoidable. They 
both include a development environ- 
ment that incorporates an editor, 


compiler, and so forth. Neither of the 


editors is anything to write home 
about; both are adequate for fixing 
occasional errors that might pop up 
in debugging. Neither is really ade- 
quate for writing an actual program 
however, so you will probably do 
your initial typing outside the Quick 
C or Turbo C environment. In fact, 
these much-touted user interfaces 
are pretty worthless for the most 
part. I'd as soon use my own editor 
and compile with the command-line 
versions of the compilers. I see little 
point in wading through infinite 
menus when I can do the same job 
faster from the command line. How 
long can it take to learn a few com- 
mand-line switches anyway? Fortu- 
nately, both Turbo and Quick C pro- 
vide an easy-to-use, Command-line 
version of the compiler. 

There’s a certain amount of over- 
lap between Quick C and the full, 
Version 5, compiler, too. In fact, 
Quick C is included in the full compil- 
er package. The main differences are 
code quality and compile time. The 
full compiler is slower, but it gener- 
ates much better, heavily optimized 
code. Quick C, on the other hand, is 
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lightning fast but the output code 
isn’t great. There’s also a new, much 
faster version of LINK provided with 
the package. 

Both Quick C and the full compiler 
use the same libraries, literally—they 
use the same .lib files on the disk. This 
is a real boon if you're doing serious 
development work—you can use 
Quick C to develop individual mod- 
ules, and once they’re debugged, you 
can recompile with the full compiler 
to get better code quality. 

Quick C provides a phenomenally 
good development environment. It 
has about three-quarters of Code- 
View built into it, so it not only finds 
syntax errors for you but it also helps 
you debug. You can use a command- 
line version of Quick C to generate 
CodeView-compatible files, howev- 
er, so you can have both fast compile 
time and the full CodeView if you 
need it. 

For those of you who aren't famil- 
iar with the CodeView debugger, it is 
a source-level debugger that really 
works, and it has become an essential 
part of my development environ- 
ment. You can actually watch pro- 
gram execution at the source level; 
you can even see local and global 
variables change as they are modi- 
fied. You can set breakpoints on vari- 
ables being modified, on expressions 
becoming true, even on ranges of 
memory being modified. I discussed 
the debugger in depth in the Novem- 
ber 1986 C Chest. My program devel- 
opment time has decreased by at 
least 25 percent since I started using 
this debugger. I can’t live without it. 
Quick C is essentially CodeView with 
a compile instruction. 

Quick C handles multiple-module 
files quite easily. You create a pro- 
gram list that has an entry for each 
file or library in the program. Quick 
C uses this list to create a makefile 
automatically and then assembles 
the program in a manner similar to 
the way make does (Turbo C uses a 
similar mechanism). 

Quick C is really an incremental 
compiler not an interpreter. It com- 
piles the entire module at lightning 
speed—comparable in all respects to 
Turbo C—without stopping. It has a 
“go to next error” function key in the 
editor that lets you find errors pain- 
lessly. It positions you at the line that 
contains the error, then prints the er- 


ror message in a window at the bot- 
tom of the screen. A context-sensitive 
help feature gives you an on-line ref- 
erence to all the library routines, 
showing you a function prototype 
and capsule description of any li- 
brary function that is highlighted by 
the cursor. 

The Microsoft run-time library, 
used by both Quick C and the full 
compiler, is the best out of those re- 
viewed here. It is very Unix compati- 
ble and is packed with useful rou- 
tines, including a set of graphics 
functions (new to this version) and 
very good support for terminate-and- 
stay-resident utilities (also new). The 
graphics functions let you do the ba- 
sic stuff (lines, circles, ellipses, and 
area fill) and supports all the IBM vid- 
eo adapters (but, unfortunately, not 
the Hercules graphics card). The li- 
brary documentation is among the 
best I’ve seen—better than that of 
any of the other compilers I’m re- 
viewing here. It has one page per 
function, with the function name 
across the top of the page. The func- 
tions are listed in strict alphabetical 
order so that they’re easy to find, and 
most entries have an example of how 
to use them. 

Microsoft is finally selling the li- 
brary source code too—useful if 
you re either porting to another envi- 
ronment or need to correct bugs that 
are bound to show up in the new rou- 
tines. Microsoft is also accelerating 
the release schedule from yearly to 
semiannually so that you can get a 
compiler update with fixed bugs ev- 
ery six months instead of having to 
wait a year. This last change makes 
the library sources a little less impor- 
tant, but it’s still good that they're be- 
ing released. 


Turbo C 

Last, and least, on the list is Borland’s 
Turbo C. I finally got my copy of Tur- 
bo Cin the mail, several months after 
Borland had not only started adver- 
tising it but also collecting money for 
it. The cover letter started ominously 
with: “...right on schedule, here’s 
Turbo C.” In spite of the hype, how- 
ever, and in spite of the seeming pop- 
ularity of the product (at least judging 
by the sales figures), Turbo C comes 
in last when compared to the compil- 
ers I’ve just discussed. It’s not so much 
that Turbo C isn’t a good product but 
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National 
Semiconductor ° 
NS320xx 





Motorola MC680x0 
(w/wo 68881) 


Apollo, Sun, SGl.... 


BSD 4.x BSD 4.x 
s i BSD 4.x D — Cy 
XENIX ULTRIX \/ AX 
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PC/MS-DOS 
0s/2 BSD 4.x 
FlexOS 


PC-MOS Resident, 
0s/286, 08/386 BM Embedded, IB M. 
X-AM (VM/RUN) RT PC and Cross 3/70 


We cut our teeth on UNIX, but have become famous on MS-DOS, which we enhanced with our UNIX-like DOS 
Helper ™ utilities: find (including tar), fgrep, cat, Is, my, tail, uniq, and we; and our superior optimizing compilers: 


Atari's 






GEM-DOS 








80(,1,2,3)86 
80(,2,3)87 
Weitek 1167 

PC AT, PS/2 
Compaa, 
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Professional Pascal ™ and High C ™ on the PC are now well-respected by organizations such as Ansa, Ashton-Tate, 
AutoDesk, Boeing (BCS), Daisy Systems Corp., Deloitte Haskins & Sells, Digital Research, GE, IBM, Lifetree, 
Migent, Multimate, NYU, Silvar-Lisco, Sky Computers, Symantec, Xerox/Ventura, ...and Computer Language 
magazine; Dr. Dobbs’ Journal; PC Tech Journal; PC Magazine; and the Journal of Pascal, Ada, and Modula-2. 


We supplied the first compilers generating 32-bit protected-mode code for the 80386 under MS-DOS (since 11/ 
86). And our newly upgraded MS-DOS real-mode compilers were used by Symantec for their Q&A™ product to 
exploit the power of the 80386 real-mode instruction set. (HC v1.4 and PP v2.7 released May 1987.) 


Our C Validation Suite will blow your C compiler out of the sea, while our C compiler tracks the emerging ANSI 
Standard and generates tighter code with far better lint-like feedback help than competing compilers. 


And you'll love Professional Pascal’s Ada-like packages, true data abstraction, C-like bit manipulation, and much 
more, along with the tight code that is linkable with High C, or other C, object modules (and vice versa). 


Our Translator Writing System (TWS) goes far beyond LEX and YACC, with fully automatic error recovery... 
All uniformly implemented on UNIX, VMS, CMS, MS-DOS, FlexOS., ... 


Professional developers in need of industrial-strength tools contact: 
MetaWare Incorporated 


903 Pacific Avenue, Suite 201 
tM Santa Cruz, CA 95060-4429 
- Mets NN, sre (408) 429-6382 


INCORPORATED Telex: 493-0879 (META UI!) 
PC Tech Journal’s conclusion: 


The Clear Choice for Large Programming Projects. 























Name CL 05/87 Circle what interests you: 

Company Product: PP HC TWS _ Helper (DOS only) 
Address Platform: V.x 4.x DOS FlexOS VMS CMS 
City, ST Zip Sun Apollo Atari VAX 370 

Phone ( ) 8086-family 80386 680x0 32032 





© 1987 MetaWare Incorporated. MetaWare, High C, Professional Pascal, and DOS Helper are trademarks of MetaWare Incorporated. Others/ owners: Ada/DoD: 
Apollo/Apollo; Atari/Atari; DEC, VAX, VMS/DEC; FlexOS,GEM-DOS/DRI; IBM,RT PC/IBM; MS-DOS/Microsoft; Q&A/Symantec; Sun/Sun Microsystems; UNIX/AT&T. 


Footnotes: |. Atari, CMS versions available 10/87. 2. NS320xx version by special order. 3. UNIX not yet available on 370. 
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PC/VI 
UNIX’s VI Editor Now Available For Your PC! 


Are you being as productive as you can be with your computer? 
An editor should be a tool, not an obstacle to getting the job done. 
Increase your productivity today by choosing PC/VI—a COMPLETE 
implementation of UNIX* VI version 3.9 (as provided with System V 
Release 2). 

PC/VI is an implementation of the most powerful and most 
widely used full-screen editor available under the UNIX operating 
system. The following is only a hint of the power behind PC/VI: 

e Global search or search and replace using regular expressions 

e Full undo capability 

e Deletions, changes and cursor positioning on character, word, 
line, sentence, paragraph, section or global basis 

e Editing of files larger than available memory 

e Shell escapes to DOS 

e Copying and moving text 

e Macros and Word abbreviations 

e Many controllable options including Auto-indent, Showmatch, 
and Wrap Margin 

e Filter text through external programs AND MORE! 

Don’t take it from us. Here’s what some of our customers 
say: “Just what I was looking for!’; “It’s great!”, “Just like the real 
VI! “The documentation is so good I have already learned 
things about VI that I never knew before.” — IEEE Software, 
September 1986. 

PC/VI is available for IBM-PC’s and generic MS-DOS? systems 
for only $149. Included are CTAGS and SPLIT utilities, TERMCAP 
function library, and an IBM-PC specific version which enhances 
performance by as much as TEN FOLD! 


PC/TOOLS' 


What makes UNIX so powerful? Sleek, Fast, and 
POWERFUL utilities! UNIX gives the user not dozens, but 
hundreds of tools. Now the most powerful and popular of these are 
available for your PC! Each is a complete implementation of the 
UNIX program. Open up our toolbox and find: 


e ASA e COMM e DIFF3 e MV e SEE e TR 

e BANNER e CP e FIND « OD e SORT e TOUCH 
e BFS CULL e GREP e PASTE e SPLIT e UNIQ 

e CAL e DATE e HEAD e PR e STRINGS « WC 

e CAT e DIFF e LS e RM e SUM 

e CHMOD e DIFFH’~ e« MAKE « SED e TAIL 


All of these for a limited introductory price of only $49.00; 
naturally, extensive documentation is included! 


PC/SPELL 


Why settle for a spelling checker which can only compare words 
against its limited dictionary database when PC/SPELL is now 
available? PC/SPELL is a complete implementation of the UNIX 
spelling checker, renowned for its understanding of the rules of 
English! PC/SPELL determines if a word is correctly spelled by 
not only checking its database, but also by testing such 
transformations as pluralization and the addition and deletion 
of prefixes and suffixes. For only $49.00, PC/SPELL is the first 
and last spelling checker you will ever need! 

MeRMICR Se we 


Buy PC/VI and PC/TOOLS now and get PC/SPELL for only 
$1.00! Site licenses are available. Dealer inquiries invited. MA 
residents add 5% sales tax. AMEX, MC and Visa accepted without 
surcharge. Thirty day money back guarantee if not satisfied! 
Available in 514”, 3'4” and 8” disk formats. For more information 
call today! *UNIX is a trademark of AT&T. *+MS-DOS is a trademark of Microsoft. 
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rather that the others are better. 

Like Quick C, there are two inter- 
faces to the compiler itself—a normal 
command-line interface and ‘‘the 
standard Borland integrated environ- 
ment.” The integrated environment 
is pretty worthless. Were I a Turbo 
Pascal user, I might like it better, but 
I’m not—the integrated environment 
does nothing but put extra steps be- 
tween me and the compiled pro- 
gram. That is, it forces me to use an 
editor that I don’t like; it forces me to 
wade through infinite menus to get 
anything done; and its menu system 
manages to make even simple things 
complex by adding too many steps to 
any process. Borland has made the 
classic mistake of confusing “user 
friendly” with ‘“coddle the novice.” 
The interface is only “friendly” until 
you know what you're doing. 

The biggest problem with the inte- 
grated environment is the complete 
lack of debugging support. The prod- 
uct does find syntax errors for you, in 
a manner similar to Turbo Pascal. It 
puts you into the editor at the error 
point so that you can change things 
and finish the compilations. Syntax 
errors, however, are the least of it. It 
takes me a few minutes to get the 
syntax errors out of a program, but it 
can take days to get the program de- 
bugged, and Turbo C gives you abso- 
lutely no help with real debugging. It 
has nothing like the CodeView-like 
environment provided in Quick C. 

So, once you get rid of the excess 
baggage, what you have is an inex- 
pensive and reasonably good C com- 
piler. The code quality is better than 
Microsoft C, Version 4, but not as 
good as Version 5. It supports all six 
memory models and lets you do 
mixed-model programming. It’s easy 
to use from the command line and 
generates reasonably good code. Ru- 
mor has it that it’s the Wizard C com- 
piler, and looking at the generated 
code, I have no reason to doubt this 
supposition. The compiler supports 
in-line assembly language and has a 
reasonably good library, the sources 
for which are available if you need 
them. The DOS support is good but 
not portable, and there are no graph- 
ics functions. 

The library has a few problems, 
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however, most of which fall into the 
Unix-compatibility and documenta- 
tion areas. For example, there’s no 
Unix-compatible signal( ) function, 
though there is a nonstandard mech- 
anism to intercept the Ctrl-Break in- 
terrupt; there’s a function called 
ioctl( ) but this function is nothing 
like the Unix function with the same 
name; and so forth. These sorts of in- 
compatibilities always mystify me. 
It’s easy enough to do it right, so why 
don't they? 

The library documentation is ade- 
quate but not nearly as good as Micro- 
; soft’s. There’s lots of nonstandard 
stuff with little or no explanation of 
how that stuff works. For example, 
the nonstandard ioctl( ) subroutine 
evidently lets you change file attri- 
butes, but the documentation doesn’t 
tell you how. I assume that the DOS 
Technical Reference would help, but 
Borland’s documentation doesn't say 
one way or the other. In addition, ex- 
amples of how to use library routines 
are few and far between, and the 
documentation assumes a lot in 


terms of previous knowledge need- 
ed to figure out the subroutine de- 
scription. A thorough knowledge of 
DOS interfacing details is assumed 
throughout. 

The manual’s layout is poor. Bor- 
land has saved space by putting the 
documentation for several subrou- 
tines on a single page, thereby mak- 
ing things harder to find (there's no 
header with the subroutine names 
for that page across the top). More of- 
ten than not, when you look up a sub- 
routine, the entry refers you some- 
where else to get the actual 
description. There are a few typos 
that cause problems too—for exam- 
ple, the stime( ) function is described 
as follows: ‘‘stime returns a value of 0 
is returned.’ 


Conclusion 

Quick C in the stand-alone version is 
better than Turbo C. It does every- 
thing that Turbo C does, and then 
some, incorporating very good de- 
bugging support that is totally absent 
from Turbo C (finding syntax errors 
alone is not sufficient). My Quick C is 
a beta version, so I can’t really com- 
pare code quality, and in any event, 


all of the products are more or less on 
par. Nonetheless, Turbo C is, at pre- 
sent, between Quick C (which is a lit- 
tle poorer) and the full Microsoft 
compiler (which is considerably bet- 
ter). Microsoft says that the code qual- 
ity will be considerably improved in 
Quick C’s final release. 

To my mind, the better debugging 
environment provided by Quick C 
far outweighs any code-quality con- 
siderations. If you're doing serious 
development, you'll use the full com- 
piler anyway. Quick C’s debugging 
environment is particularly useful if 
you re learning the language. 

Datalight’s Optimum-C gives the 
best code quality of these four com- 
pilers, and the library, though small, 
is adequate for most programs. It also 
provides the best support for ROMed 
code, and the library sources are in- 
cluded for free. The lack of debug- 
ging support is a serious omission, 
however, and I recommend it pri- 
marily to experienced programmers 
who are generating code to run out- 
side the DOS environment or to pro- 
grammers who need very efficient 
code and don't care about the small 
library. I do recommend it, though, 
in spite of these shortcomings. It’s a 
shame that Datalight’s C generates 
Lattice-compatible assembly lan- 
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- Monitor program/system execution 

- Beautify program listings 

- Determine program flow/critical path 
- Trace/verify variable usage 

- And more.... 


At $79.95 per volume or $130 for both with a 30 day trial, the 
Toolbox is simply the best value today. In addition, the 
documentation is packed with examples and tips on creating better 
programs. 


guage rather than Microsoft-compat- 
ible. Were this not the case, you could 
use Quick C to do your development 
and Optimum-C for the final compi- 
lation pass. 

The complete Microsoft compiler 
package is the most powerful, but it’s 
by far the most expensive, especially 
when you add in the cost of the li- 
brary sources. If cost is not an issue, I 
think the Microsoft compiler (which 
includes Quick C) is the best bet. It 
combines a very good compiler with 
a complete (and Unix-compatible) li- 
brary and a fantastic debugging envi- 
ronment. If cost is an issue, or if 
you re just learning the language, I’d 
go with Quick C alone. If you're doing 
serious production work, get the full 
compiler package. 
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U.S; Map-(15, 701 pomte-of state boundaries) oo. 6k esc ee gece oe ao a $15 


The Austin Code Works 
11100 Leafwood Lane 
Austin, Texas USA 78750-3409 
(512) 258-0785 


Free surface shipping on prepaid orders MasterCard/VISA 
CIRCLE 250 ON READER SERVICE CARD 


COLUMNS 


With this issue, DDJ both inaugurates a 
new column and welcomes a new col- 
umnist to its ranks. Martin is eminent- 
ly qualified to discuss the issues and 
nuances of the Forth language: he is 
one of the founders of MicroMotion, a 
senior programmer at FORTH Inc., 
and vice-president of the Forth Inter- 
est Group (FIG ).—eds. 


Ss ure, you Say, a column on Forth 
programming makes sense, but 
what's this business about news and 
reviews? Well, a lot has been happen- 
ing lately. Forth is being used in ev- 
erything from digital signal process- 
ing to neural nets. There are several 
Forth conferences each year (one 
near you) and hundreds of publica- 
tions. You can find Forth in credit- 
card phones, cyclotrons, and on 
board the Titanic. Staying current 
can bea major task, but I'll try to keep 
you well informed and up to date. 

There are four sources of Forth in- 
formation that you should know 
about: the Forth Interest Group, The 
Institute for Applied Forth Research, 
various Forth electronic bulletin 
boards, and (of course) DDJ. 


Forth Interest Group 

The Forth Interest Group (FIG) brings 
together more than 4,000 Forth pro- 
grammers and hobbyists in more 


by Martin Tracy 


than 80 local chapters. You can order 
just about any Forth publication 
through FIG, or find a job, or pur- 
chase group health insurance. FIG 
sponsors both the National Forth 
Convention and the Forth Modifica- 
tion Laboratory (FORML) conference. 
Membership is $30/year and in- 
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cludes a subscription to Forth Dimen- 
sions. You can join by calling the FIG 
hot line: (408) 277-0668. 

The National Forth Convention is 
where you go to meet your local ven- 
dor and to learn more about FIG. 
More than 40 vendors attended last 
year, many with display booths. You 
can hear panels of Forth celebrities 
speculating about the future of the 
language. There are two days of tech- 
nical presentations and a banquet, 
too. This year’s convention meets No- 
vember 14—15 at the Red Lion Inn in 
San Jose, California. The National 
Forth Convention is usually held one 
or two weeks before FORML so that 
visitors from abroad can reasonably 
attend both. 


FORML 
Imagine spending Thanksgiving this 
year in beautiful Monterey, Califor- 
nia. FORML is the technical Forth 
conference and is held every year 
following Thanksgiving (November 
27 — 29) at Asilomar in nearby Pacific 
Grove. Asilomar is a modern confer- 
ence center situated in a pine forest 
overlooking the Pacific Ocean. There 
are raccoon and deer in abundance, 
and wine and cheese parties are held 
nightly. Although the technical con- 
tent of FORML is quite advanced, the 
atmosphere is relaxed and informal. 
The theme of this year’s ninth 
FORML is ‘Forth and the 32-bit Com- 
puter.” The call for abstracts (100 
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words or less) for the ninth annual 
FORML is September 1, 1987, so 
you ve just missed it. Completed pa- 
pers are due November 1, which 
means that if you call right away you 
might still be able to sneak in on time. 
You can call the organizers at (408) 
277-0668. 


The New Forth Dimensions 
Actually, its pretty much the same 
old Forth Dimensions but with a new 
look that includes a glossy cover and 
a snappier format. Forth Dimensions 
is the bimonthly publication of FIG, 
and a one year’s subscription is in- 
cluded with each annual member- 
ship. Some even say that FIG mem- 
bership is free when you subscribe to 
Forth Dimensions. Volume IX, Num- 
ber 1, starts the new look with arti- 
cles on fractal landscapes, 32-bit 
Forths, and other topics. Marlin Ou- 
verson, the editor, keeps a careful 
balance of beginning and advanced 
material, with tiny thermometers 
printed next to each to show you the 
level of difficulty. 

This same issue includes an extend- 
ed interview with Elizabeth Rather 
entitled “Starting FORTH Inc.” If you 
want to know how it all got started, 
here’s where to find out all about it. 
You might also be interested in Ray 
Duncan’s series “Starting Your Own 
Software House”’ in Programmer’s 
Journal. Ray is known to DDJ readers 
for his 16-bit Software Toolbox col- 
umn, but he is also well known to the 
Forth community as the founder of 
Laboratory Microsystems Inc. (LMI) 
and the creator of PC/FORTH. 


The Forth Model Library 


The Forth Model Library is a series of 
selected Forth programs published by 
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Discover how powerful—and 
inexpensive—PC symbolic program- 
ming can be with PC Scheme from 
Texas Instruments. Whether you’re an 
experienced Lisp programmer or just 


beginning, PC Scheme is the complete, 


$95* solution to your software 
development needs. 

PC Scheme combines elegant 
simplicity with remarkable speed in a 
full Lisp development system. Named 
PC Tech Journal’s Product of the 
Month (August 1986), PC Scheme 
brings professional Lisp programming 
features to personal computers. 


261933B 
© 1987 Texas Instruments Incorporated 


PC Scheme 3.0 


—QOptimizing incremental byte-code 
compiler for ease of programming 
and operation 

—EMACS-like editor 

—Lexical scoping of variables 

—Ability to suspend PC Scheme, 
execute DOS-based programs, then 
return to PC Scheme 

—Random-file access and binary-file 
support 

—Extensions for debugging, graphics 
and windowing 

—External language interface to C, 
Turbo Pascal® and other languages 

—SCOOPS (Scheme Object- 
Oriented Programming System) 

—Two-megabyte extended/expanded 
memory support 

—New manuals with tutorials and 
examples 


Find out for yourself why experts are 
praising PC Scheme. For the dealer 
nearest you, or to order by phone, call 
toll-free: 


1-800-527-3500 


* TI Suggested list price 
PC Scheme runs on IBM® Personal Computers and compatibles 


(including the Texas Instruments Business-Pro™ computer). 
Minimum configuration: 512K RAM, dual floppy system. 


Turbo Pascal is a registered trademark of Borland International. 
IBM is a registered trademark of International Business Machines 
Corporation. Business-Pro is a trademark of Texas Instruments 
Incorporated. 


TEXAS 4 
INSTRUMENTS 
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FIG and written in the Forth-83 stand- 
ard dialect. The library is, in part, an 
ongoing experiment to determine the 
ability of the Forth-83 standard dialect 
to support substantial applications. 
Each participating vendor supplies an 
appropriate ‘front end” so that the 
application can run under its Forth. 
Needless to say, no machine-code 
words are used in the library. The em- 
phasis is on readability and _ utility 
rather than on speed. Of course, you 
can always tune it more closely to 
your Forth or to your needs, hence 
the name model. 

This library currently contains five 
volumes: A Forth List Handler, Vol- 
ume 1, by Martin J. Tracy; A Forth 
Spreadsheet, Volume 2, by Craig A. 
Lindley; Automatic Structure Charts, 
Volume 3, by Kim R. Harris; A Simple 
Inference Engine, Volume 4, by Mar- 
tin J. Tracy; and The Math Box, Vol- 
ume 6, by Nathaniel Grossman. Vol- 
ume 5, A Complete PROLOG, by Lou 
Odette, has been delayed but should 
appear shortly. 


HIGH SPEED FORTH/C 
PC-RISC SYSTEM 


FASTEST FORTH DEVELOPMENT SYSTEM 


Add up to 40 MIPS of power to your IBM PC/XT/AT 
Each PC4000 plug-in card runs at 5 to 8 MIPS 

Fast Forth development and execution in hardware 
More than twice as fast as VAX-11/780 or 68020 
Parallel processing using multiple PC4000s 

NC4016 RISC Engine CPU with 512K on-board RAM 
Ideal for process control or image processing 


FASTER C DEVELOPMENT ENVIRONMENT 


4 times faster than Microsoft C v. 4.0 


K & R Standard C with new extensions 


Compiler, assembler, linker and editor 
128K bytes of address space for data 
Supports in-line assembly code 


PC4000 
SCForth 
SC-C 

Assembler: 


: $1,295 

$195 

705 
en ee 

SILICON COMPOSERS 
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SILICON COMPOSERS 
210 California Ave. 

Palo Alto, CA 94306 
(415) 322-8763 


The Forth Model Library is avail- 
able from FIG at $40 per volume. It is 
available on IBM MS-DOS 54-inch 
disks and runs under several IBM PC 
Forths, including Laxen/Perry (pub- 
lic domain) F83; PC/FORTH, Version 
3.0 or later; MicroMotion Master- 
Forth, Version 1.0 or later; and 
FORTH Inc.’s polyFORTH II MS-DOS 
ISD-4. 


Fixed-Point Math 

The Math Box, Volume 6 of the li- 
brary, includes the source code for 
extended double-precision arithme- 
tic; a complete fixed-point math 
package; auto-ranging text graphics; 
and utilities for rapid polynomial 
evaluation, continued fractions, and 
Monte Carlo factorization. 

Forth programmers generally pre- 
fer fixed-point to floating-point 
math. For any given number size, 
fixed-point math is faster and more 
accurate than floating point but it 
lacks the convenience and larger dy- 
namic range of floating point. Real- 
time applications that read transduc- 
ers and write to D/A converters or 
stepper motor controllers usually 





XENIX or 
MS-DOS. 


communications 
problem is 
available today! 


Qualstar’s new 
14 inch 9-track 














9-Track Tape Subsystem 
for the IBM PC/XT/AT 


The solution to your 
micro/mainframe 


Available in both 7” and 101%” versions, the MINISTREAMER 
weighs in at only 27 pounds and uses less desk space than an 
ordinary sheet of paper, yet provides full 1600/3200 BPI 
capability at an affordable price. Up to 134 megabytes of data 
(depending on format) can be stored on a standard 1012” reel of 
tape, thus making the MINISTREAMER a highly-reliable answer 
to your backup requirements as well. 
















have well-understood algorithms of 
limited dynamic range. PID control- 
lers, digital filters, and computer 
graphics are especially amenable to 
fixed-point solutions. 

A common Forth approach to im- 
plementing fixed-point numbers is to 
combine signed 16-bit integers and 
signed 14-bit fractions. A 14-bit frac- 
tion is a signed 16-bit number with 
the binary point two positions from 
the left: 


G4 ## HHH HHH HEHE 


where S is the sign bit and each # is a 
binary digit. Fourteen-bit fractions 
have several charming properties: 


¢They can be added to each other 
with no adjustment. 

¢ They can be multiplied by an inte- 
ger with no adjustment. 

¢They can be multiplied together 
and adjusted with two left shifts. 

¢ They can exactly represent +1 and 
—1, which is especially useful when 
working with sines and cosines. 

¢ Because the number of bits is even 
and fixed, the square root is exact and 














MINISTREAMER " brings full ANSI data interchange capability 
to the PC. Now you can exchange data files with virtually any 
other computer using 9-track tape. 






Tape subsystem includes tape drive, coupler card, cables, 
dust-cover and MS-DOS or XENIX compatible software. 
Prices start at $2,995. 


386 READY! 


Discover the many advantages 
9-track tape has over other 
Micro/Mainframe links. 


Call us today! 


[JUALS TAR, 


9621 Irondale Avenue, 
Chatsworth, CA 91311 
Telephone: (818) 882-5822 
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extra 





does not require an 
multiplication. 


You can read more about 14-bit 
fractions in Leo Brodie’s Starting 
Forth, 2d ed (Englewood Cliffs, N.J.: 
Prentice-Hall, 1987). Don’t bother try- 
ing to find the information in the first 
edition—it isn’t there. By the way, 
Starting Forth has sold more than 
110,000 copies. The second edition 
has been substantially revised and 
enlarged. It now identifies the differ- 
ences between Forth dialects and in- 
cludes a long-awaited index. 

Unfortunately, neither 16-bit inte- 
gers nor 14-bit fractions can represent 
handy numbers such as 3.1415... .To 
combine efficiency with conve- 
nience, Dr. Grossman has designed a 
fixed-point package based on signed, 
32-bit, fixed-point numbers with the 
binary point in the middle: 


S###t FHA HHH HHH HHH HHH HHH 
HHH 


These numbers can range from more 
than 9,999 to less than 0.0001 with 
roughly 4% digits on each side of the 





PROGRAMMERS! 


decimal point. 


The 1987 Rochester 

Forth Convention 

This year’s Rochester Forth Conven- 
tion was an impressive gathering of 
more than 100 Forth professionals 
from industry and academia. AI- 
though it was difficult for me to sit 
through 50 technical presentations (I 
admit I missed some), the four-day 
conference sped along, accompanied 
by excellent food and nightly parties. 
This year’s conference, sponsored by 
the Institute of Applied Forth Re- 
search and coordinated by Larry 
Forsley, was a bit less organized than 
last year’s, sadly because of Thea 
Martin’s disinvolvement. Thea is 
leaving the institute to pursue a ca- 
reer in education. 

This year’s official theme was 
Forth hardware architecture, and 
the unofficial theme was artificial in- 
telligence. Dr. Dorband (NASA God- 
dard Space Flight Center, Maryland) 
talked about the Massively Parallel 
Processor (MPP). This 128 X 128 array 
of 16,384 serial processors is pro- 
grammed in (can you guess?) Forth. 








THE TOOLS You NEED 
AT A PRICE YOU’LL LIKE 


Supports all index file operations. Very quick 
sequential or random access, duplicate keys, multiple 
indices, fixed and variable length data records are all supported. 


Works on top of BTree to provide a simple, yet 
powerful application program/file system interface. 


75.00 < NOW 


MULTI 
-USER 


40.00 AVAILABLE 


Complex filesystem manipulation becomes a snap. Provides the power 


of a database manager with the flexibility of a programming language. 


60.00 


Finally, a completely device independent printer library! 


Ip drives any printer as accurately as possible and allows easy access to 


75.00 


its most sophisticated features. Multiple fonts, multi-column output, complex margin 
formatting, and much more. Pays for itself the first time it’s used. 


The ultimate ‘make’ utility. We couldn’t find a good one, so 


we wrote a great one. Has all kinds of powerful features including wild 


59.00 


card filename expansion, nested macros, and multiple dependency and rules defini- 
tions. Ready to go for MS-DOS; C source is there if you use another operating 


system. 


Combine & Save: BTree + ISAM + Ip 159.00+ snake 199.00 


Each product includes a typeset manual, example programs, and complete C source 
code that runs on any operating system. ‘Softfocus products may be incorporated into 


applications royalty-free. 


Credit card orders accepted. Visa, M/C, Amex. Dealer inquiries invited. 
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Dr. Ting (Lockheed) described an NCR 
GAPP network with a Novix 4016 as 
the microcode sequencer. 

On a slightly smaller scale, Phil 
Koopman, Jr., demonstrated his Writ- 
able Instruction Set/Stack Oriented 
Computer (WISOCQ), a 32-bit commercial 
Forth engine. Wright State University 
(Ohio) presented a stack-frame com- 
puter designed for Forth. Final silicon 


is expected in spring 1988. The univer- 


sity’s stack-frame architecture has a 
shallow stack with all items directly 
addressable. ROT would be faster on 
this stack-frame computer than on, 
let's say, a Novix 4016. Speaking of No- 
vix chips, George Nicol had an IBM AT 
stuffed with six Silicon Composer 
PC4000 boards running in parallel. 
Let's see, by my count that’s 20 MIPS 
per board, for 120 MIPS. Is that Million 
Instructions Per Second or Misleading 
Information Provided by Sales? Also 
speaking of Novix chips, watch for 
good things from Harris Semiconduc- 
tors, which has added the Novix to its 
macro cell library. 

On the AI front, the University of 
Utah has been using an emulator 
written in Forth to test its Common 


SOftlOCUS 


1343 Stanbury Drive 
Oakville, Ontario, Canada 
L6L 2J5 

(416) 825-0903 
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LISP compiler. Ecole Polytechnique 
de Montreal presented FUZZY- 
FORTH, a real-time fuzzy-rule pro- 
duction system. Henry Harris (Jet 
Propulsion Labs, California) gave a 
too-short talk on conceptual depen- 
dency. William Dress (Oakridge Na- 
tional Labs, Tennessee) brought a 
bug! Complete with a few hundred 
simulated neurons connecting simu- 
lated sensors with simulated mus- 
cles, this artificial neural network 
‘“insect’’ crawled around a CRT, 
learning to avoid the sides and to seek 
the simulated food. There were talks 
on computer-aided medical diagno- 
sis, multiprocessor expert systems, 
and several other aspects of AI. 

The last day of the conference was 
reserved for seminars and demon- 
strations. The peripatetic Ray Dun- 
can demonstrated LMI’s UR/FORTH 
for the Microsoft OS/2 operating sys- 
tem. Again and again (remember Cre- 
ative Solution’s MacFORTH?) Forth is 
one of the first languages to run in a 
new software environment. 

If you missed the conference, you 
can still read the proceedings. They 
will appear shortly as a special issue 
of the Journal of Forth Applications 
and Research (JFAR). A one-year sub- 
scription (four issues) to this profes- 
sional, refereed publication costs $40. 
You can order it from JFAR, P.O. Box 
27686, Rochester, New York 14627. 


For a Good Time... 

If you own a modem, there are two 
numbers you should definitely inves- 
tigate: the West Coast Forth Board 
((213] 301-0761) in Los Angeles and the 
East Coast Forth Board ((703] 442-8695) 
in McLean, Virginia. These public- 
spirited nondenominational Forth 
bulletin boards contain megabytes of 
Forth utilities, interviews, contacts, 
and news. The WCFB sysops are Scott 
Squires (Lucasfilm), Michael Ham (of 
DDJ fame), and the ubiquitous Ray 
Duncan. The ECFB sysop is Jerry Shi- 
frin (MCD). 

Both boards are PCBOARD Forth- 
only bulletin-board systems. The 
ECFB is the more active of the two, 
averaging about two dozen messages 
a day. There are more than 1,000 
Forth files available on this board! 
You can download the complete di- 
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The Software 


AW] 


e the only complete version of AWK available for DOS; 

fully compatible with the latest description in The AWK 
Programming Language, by Aho, Weinberger, and Kernighan; 
easy to learn, giving beginners results with little effort; 

the natural introduction to mastering the C programming language; 
text substitution and pattern matching; 

definable functions; 

associative arrays and regular expressions; 

sample programs and a tutorial manual; 

large model version; 

hardware floating point version; 

rapid prototyping tool for larger programs. 


The Book 


e written by the authors of the original 
UNIX-based program, Alfred V. Aho, Peter J. 
Weinberger, and Brian W. Kernighan; 

e the definitive book on AWK just as “The C 
Programming Language,” by Kernighan 
and Ritchie, defined C; 

e published by Addison-Wesley (release 
date: September 1987); 

e lists at $21.95; 

e with MKS AWK only $14.00. 
















Experience the power of a UNIX programming 
language on your desktop PC without sacrificing 
your investment in DOS applications and training. 


AWK is a versatile first language for non-programmers and a sophisticated data 
retrieval and report generation tool for the experienced user. Based on a 
sequence of terse pattern/action rules, AWK allows you to manipulate files for 
retrieval, transformation, reduction, and validation of data. MKS AWK comes 
with full technical and tutorial documentation to speed your mastering of this 
fourth generation programming language. 


MKS AWK sells for $75. 
Order both the software and the book from MKS for $89. 


Mortice Kern Systems Inc., 


43 Bridgeport Road East, Waterloo, Ontario, Canada, N2J 2J4 (519) 884-2251 


uucp: {allegra, decvax, ihnp4}!watmath!mks!toolkit 
MKS AWK runs under MS-DOS 2.0 or later. Not copy protected. Prices quoted in US funds. VISA, MASTERCARD, 
American Express, uucp, and purchase orders are accepted. Overseas orders please add $10 for postage and 
handling. MKS is a registered trademark of Mortice Kern Systems Inc. UNIX is a trademark of AT&T Bell Labs. 
MS-DOS is a trademark of Microsoft Corp. 
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rectory listing in FILELIST.ARC. 
Many of these files are also available 
on the WCEFB. Jerry Shifrin has put 
together an excellent 50-page Guide 
to the ECFB, which is available by 
leaving him a message on the board. 


Product of the Month: 
Ashton-Tate’s RapidFile 
The following Forth success story 
was downloaded from the ECFB. Edi- 
torial comments are by Jerry Shifrin: 
‘‘Ashton-Tate has recently released 
RapidFile, a data management pack- 
age for the IBM PC. The following is 
excerpted from Ashton-Tate’s 3/87 is- 
sue of Technotes: 


Technotes: Why is RapidFile writ- 
ten in FORTH? 


Mark McDonough (developer): I'll 
tell you the story. When I told my 
professors that I wanted to imple- 
ment the OBE [IBM’s Query By Exam- 
ple] concept on a PC, I was told it was 
not possible. Knowing that it couldn't 
be done, I went out to find a genius 
who would know how to push the 
PC to its limits. I found that genius in 
Tom Dowling lof Miller 
Microsystems]. 

Tom claimed, and has since proven 
time and again, that FORTH was as 
easy to program in as other high level 
languages and that its programs run 
almost as fast as assembler programs. 
FORTH programs also compile into a 
very small space. We could not have 
fit RapidFile onto one disk and in 
256K of RAM if it were written in C. 


Technotes: We understand that the 
flexibility of FORTH really came in 
handy when designing RapidFile. 


Steve Allin (product manager): Yes, 
FORTH is very tailorable. It allowed 
us to make substantial changes to the 
design. It is very close to being a pro- 
totyping language where you can 
make major changes much more eas- 
ily than in standard programming 
languages, which would have re- 
quired substantial rewrites. Rapid- 
File went through several versions 
before its release and it couldn’t have 
gone through all that if it hadn’t been 
written in FORTH.” 
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The ANS Forth Effort Begins 
In October 1986, a small group from 
the Forth community met at FORTH 
Inc., Los Angeles, to submit a propos- 
al to the American National Stan- 
dards Institute (ANSI) asking it to un- 
dertake a Forth standard. This group 
consisted of major vendors (Elizabeth 
Rather, FORTH Inc.; and Ray Duncan, 
Lab Microsystems Inc.); major users 
(W. B. Dress, Oakridge National Labo- 
ratory; Burt Felis, IBM Corp.; and Jer- 
ry Shifrin, MCI Telecommunications 
Corp.), and interested experts 
(Charles Moore, inventor of Forth; 
Greg Bailey, Athena Programming; 
and yours truly). Also invited but un- 
able to attend were Don Colburn (Cre- 
ative Solutions), Dick Miller (Miller 
Microcomputer Services), and Kim 
Harris (Paradise Systems). 

In February 1987, CBEMA (the ANSI 
organization responsible for ANS 
FORTRAN and the proposed ANS C), 
sent the ANS Forth proposal X3J14 to 
its general membership for a letter 
ballot. In April, CBEMA accepted the 
ANS Forth proposal. The following is 
from a letter by Ms. Rather to mem- 
bers of the proposing group: 

“Tam happy to report that the final 
vote for the establishment of X3J14, 
the Technical Committee for ANS 
Forth, was favorable: 36—1—1, with 
2/3 approval required. An organiza- 
tional meeting has been scheduled 
for August 3—4, 1987, at CBEMA 
headquarters, 311 First St., N.W., 
Washington, D.C. A newsletter to all 
ANSI members and a press release 
will be sent out May 1. 

“At the first meeting, the staff of 
the X3 Secretariat will present a de- 
tailed tutorial on X3 and TC policies 
and procedures. Our first assignment 
will be to develop a detailed work 
plan and schedule for development 
of a draft standard.” 

Anyone may attend this meeting. 
According to ANSI rules, however, a 
voting member of a technical com- 
mittee pays a yearly fee of $175 and 
must attend at least two out of three 
meetings to retain voting status. Fur- 
thermore, a technical committee (TC) 
generally meets two to four times a 
year in fairly distributed geographic 
locations. The frequency of meetings 
is part of the work plan decided at 
the first meeting. You can apparently 
team up with an alternate and there- 
by attend every other meeting with- 


out losing your vote. 

While the direction of ANS Forth is 
yet to be determined by the yet-to-be- 
determined TC, the formal proposal 
calls for an integration rather than a 
revolution. The first item in the pro- 
posed work program is to “identify 
and evaluate common existing prac- 
tices in the area of the Forth pro- 
gramming language.’’ Wil Baden, for- 
mer ANS FORTRAN committee 
member and well-known Forth ora- 
tor, calls this “the principle of least 
surprise.” Furthermore, the proposal 
continues, ‘‘while the Forth-83 Stand- 
ard has stabilized the language to a 
great extent, it has proven too restric- 
tive and machine-dependent. Assum- 
ing the ANS Forth standard confines 
itself to such changes as are neces- 
sary to resolve the problems in Forth- 
83, the effect on current practice will 
be modest.’’ It was generally agreed 
that an ANS Forth might be a nice 
place to delete all references to a 16- 
bit parameter stack. 

Meanwhile, Guy Kelly, chair of the 
Forth Standards Team (FST), has sug- 
gested that FST might serve as a clear- 
inghouse for proposed extensions to 
Forth, such as string operators and 
floating-point arithmetic. Technical 
proposals should be sent to the Forth 
Standards Team, P.O. Box 4545, Moun- 
tain View, CA 94040. There is a form 
provided at the back of every pub- 
lished Forth-83 Standard. FST devel- 
oped the Forth-79 and Forth-83 stan- 
dards but has no further meetings 
scheduled at this time. 

At any rate, by the time you read 
this, the first meeting will already 
have happened. I will try to keep you 
up to date on this heroic and historic 
event. 


Coming Next 
Next time around? More on the ANS 


Forth effort, a new bibliography on 
Forth, and a few surprises. 


DDJ 
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STRUCTURED PROGRAMMING 


Data Hiding and Its Variations 


oo trench-level programmers, 
the concept of data hiding is 


likely to be regarded with hostility— 
why deny full access to data struc- 
tures? Unfortunately, data hiding is 
part of the baggage of modern soft- 
ware engineering, playing an impor- 
tant role in minimizing delays in ap- 
plication development. Because 
teams of programmers may spend 
thousands of man-hours writing 
code, strict control procedures can be 
-vital to the successful management of 
complicated programming projects. 

For example, when using either 
Ada or Modula-2, the first step in soft- 
ware coding begins with writing the 
definition modules, or packages. 
These modules list the exported data 
types, constants, variables, and rou- 
tines. They will form the foundation 
upon which each team will develop 
the actual detailed modules and 
packages. 

Careful planning must be exer- 
cised in the planning phase both to 
define and confine software develop- 
ment objectives. Each team should be 
able to work as independently as pos- 
sible, thus yielding maximum pro- 
ductivity with minimum confusion. 
In the absence of data hiding, all ex- 
ported data types and their variables 
have visible structures; this gives any 
team the ability to write their own 
routines and to manipulate the ex- 
ported data structures. 


by Namir Clement 
shammas 


But what happens if the team re- 
sponsible for implementing a specif- 
ic module and its data structures dis- 
covers a more efficient equivalent 
structure or decides that it absolutely 
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Modula-2 


e¢ Fortran 


aan 





has to modify the current one? The 
result is a domino effect of recoding 
by all the teams that used those modi- 
fied data types. Keep in mind that 
this, too, is likely to create an entirely 
new set of problems! 

To prevent this disastrous domino 
effect, opaque data types can be used. 
This gives the module or package im- 
plementor the freedom to alter the 
data structure without passing the 
negative effects on to other program- 
mers. So what’s the price for this? 

Opaque data types must be accom- 
panied by an adequate set of export- 
ed basic routines to manipulate them 
because client modules and pro- 
grams cannot contain their own rou- 
tines to access the components of an 
Opaque type. This means that in- 
formed choices must be made in spe- 
cifying which routines accompany 
the opaque types. 

Data hiding is used with data struc- 
tures that have alternate representa- 
tions, such as: 


*complex numbers represented by 
rectangular or polar components 

¢ stacks implemented using arrays, a 
set of scalar variables (for small 
stacks), or a linked list 

¢ lists implemented using pointers to 
dynamic data or to arrays 

«binary trees implemented using 
pointers to dynamic data or to arrays 
* two-dimensional matrices repre- 
sented by arrays of rows or arrays of 


columns 


Although data hiding is formally 
implemented in languages such as 
Ada and Modula-2, it can also prove 
useful to emulate this feature fully, 
or even partially, in other languages. 
This article looks at example applica- 
tions in BASIC and Pascal and com- 
pares these implementations of data 
hiding to those in Ada and Modula-2. 

The extent to which you can emu- 
late data hiding in a particular lan- 
guage/implementation is dependent 
on two main ingredients: making the 
detailed data structure opaque, and 
denying the programmer access to 
the routines that manipulate the 
opaque data types. The first require- 
ment is easily met by disguising the 
data structure; thus the trick is to 
hide the supporting code. 


BASIC Examples 

The QuickBASIC implementation 
produces a compiled user library 
that meets the more critical code-hid- 
ing requirement. You can use either 
arrays or large strings (QuickBASIC 
supports strings of up to 32K). Arrays 
are probably more suitable for tack- 
ling purely numeric data structures, 
whereas strings are more suitable for 
managing structures with numeric 
and alphanumeric data. 

QuickBASIC supports packing of 
the basic numeric data types into 
fixed-length strings. Strickly speak- 
ing, QuickBASIC still enables you to 
access the components of the not-so- 
opaque data structure, but the 
schemes used would make such ac- 
cess a wasted effort. I call this type 
“logically opaque.”’ 

Listing One, page 110, shows the 
QuickBASIC library that implements 
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STRUCTURED PROGRAMMING 
(continued from page 140) 


a version of the logically opaque nu- 
meric matrix. The matrix is made up 
of arrays of columns. Three proce- 
dures are used: one to initialize the 
matrix, one to store an element, and 
one to recall an element. 

The scheme works with OPTION 
BASE 0 to enable Mat#(0) to store the 
maximum number of rows and col- 
umns in the matrix structure. The 
opaque matrix should be declared as 
a one-dimensional array with 
Max.Row% * Max.Col% as its upper ar- 
ray bound. The routines are written 
such that the row and column indi- 
ces of the opaque matrix start at 1. 
The routines for storing and recalling 
matrix elements contain commented 
code lines for implementing the ar- 
rays of rows. In this case, the changes 
are very simple. 

The QuickBASIC code shows how 
you are still able to access the basic 
components of the data structure 
(that is, the individual array ele- 
ments). With the compiled library 
version, however, the exact mapping 


of the matrix elements is invisible. 

A second method that can be im- 
plemented in both QuickBASIC and 
Turbo BASIC revolves around static 
local strings or arrays. Both imple- 
mentations support static declara- 


tions that can be used with local vari- 


It’s possible 
to emulate 
opaque types 
in Pascal 
by using pointers. 


ables, which permits the BASIC 
subroutines to retain the data be- 
tween subroutine calls. Example 1, 
below, shows the general scheme 
and how the subroutine in question 
is used to perform multiple tasks. The 
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latter permits the BASIC subroutine 
to monopolize the opaque data struc- 
ture. Other BASIC code segments can 
use the opaque data but are denied 
direct access. The same methods can 
be used! with C: and PL/I because 
they support static variables. 

True BASIC is another BASIC imple- 
mentation that supports a limited lev- 
el of data hiding. True BASIC modules 
support an extension to ANSI BASIC 
that implements SHARE variables, 
which are characterized by their stat- 
ic nature and by the fact that they are 
accessible by all the module routines. 
These features enable programmers 
to perform partial data hiding. 

Listing Two, page 111, shows an 
implementation of a binary tree in 
True BASIC. The module implements 
one instance of a binary tree. Three 
SHAREd arrays are used to manage 
the binary tree: Bin_Tree$( ) stores 
the tree node data, Lefi( ) is the array 
of left pointers, and Right( ) is the ar- 
ray of right pointers. None of the 
three arrays are accessible by the ap- 
plication program using the binary 
tree, which makes the binary tree 
structure completely opaque. 


SUB Jekyll.and.Hyde (<argument 
list>, Menu.Choice) STATIC 


STATIC <list of scalar and 
arrays used to implement opaque 
structure> 
SELECT CASE Menu.Choice 
CASE 1 
<sequence statements> 
CASE 2 
<sequence statements> 
CASE 3 
<sequence statements> 
ELSE 
<sequence statements> 


END SELECT 


END SUB 





Example 1: General scheme for 
using Static local variables in 
QuickBASIC and Turbo BASIC 
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Pascal Examples 

Although Pascal is similar to Modula- 
2, it does not support opaque types. 
Nevertheless, it is possible to emulate 
opaque types in Pascal by using 
pointers. Schneider! suggests the fol- 
lowing method: 


1. Declare an opaque record type and 

its pointer. This record declaration 

should be empty. 

2. Declare a record type with the ac- 

tual data structure used. Also declare 

a pointer type accompanying this re- 

cord type. 

3. Declare a variant record of the 

form: 

TYPE Convert = RECORD 

CASE boolean OF 
TRUE : (Opaque : <pointer to 
Opaque record>); 
FALSE : (Actual : <pointer to 

actual structure>) 

END; 

This variant record enables you to 

pass the addresses of pointers from 

one record pointer type to the other. 

4. Provide two functions for two-way 

conversion between the opaque type 

and the actual data structure. 

5. Write a set of routines that provide 

the required manipulation of the 

opaque data type. 


Listing Three, page 113, shows Tur- 
bo Pascal data types and routines to 
implement opaque complex types. 
Five routines are provided for dem- 
onstration. The first two create com- 
plex numbers from rectangular or 
polar coordinates, and the following 
two perform the conversion in re- 
verse. Function Add_Complex is a 
sample routine to perform a mathe- 
matical operation on a pair of com- 
plex numbers. 

Notice how the input parameters 
that represent opaque complex num- 
bers are first converted into the actu- 
al structures. True addition is per- 
formed using rectangular coordi- 
nates, and the results are converted 
into opaque complex numbers. The 
Pascal code prohibits the program- 
mer from accessing the actual record 
type. This is enforced even further 
when using compiled library UNITs 
because the actual record structure is 
confined to the implementation part 
of the library UNIT. 

Compare the Pascal code with the 
Modula-2 version in Listing Four, 
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page 116. Notice how simple and ele- 
gant the Modula-2 version looks com- 
pared to the Pascal version. In both 
Pascal and Modula-2, you can use the 
polar coordinates as the actual data 
structures without changing the pa- 
rameters of the routines involved. 


Availability 
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order send $14.95 to Dr. Dobb’s Jour- 
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216. Please specify the issue number 
and format (MS-DOS, Macintosh, 
Kaypro). 
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LETTERS 


(continued from page 14) 





posed of integers, unless youre a 
throwback to the Pythagoreans. Be- 
cause of the nature of the problems 
people need to solve today, modern 
computer languages use sophisticat- 
ed variables or object definitions, 
noninteger arithmetic operations, 
and advanced programming control 
techniques. Because computers do 
not support these functions, they 
must be emulated somehow by l|an- 
guages or programmers or both, and 
emulation is just a fancy word to de- 
scribe a case in which a particular 
machine is made to do something it 
was not meant to do. 

The exception to this is assembly 
languages, which are fully supported 
by the computers they are written 
for, but as anyone knows who's done 
enough “real programming,  assem- 
bly language isn’t the easiest lan- 
guage to program in, document, or 
maintain. 

Therein lies the problem with 
computers and the reason why there 
are no good computer languages to- 
day and certainly no good general- 
purpose computer languages. Trying 
to tailor a machine that does one par- 
ticular job well to do another job al- 
ways leads to inefficiency, but in- 
stead of changing the approach, most 
people try and improve on just one 
aspect of the problem—the software. 

We will not see any significant ad- 
vance in the way we program com- 
puters until a computer architecture 
appears that supports a particular 
high-level language so fully that it 
would take more time and be less 
readable and maintainable to pro- 
gram in assembly language than to 
use the HLL. This architecture should 
be geared toward a particular type of 
task, such as object-oriented pro- 
gramming, real-time systems, or 
arithmetic number crunching, and 
should not support any operations 
that are not needed. Thus, we'll see 
two or three different types of com- 
puters, all with architectures sup- 
ported by the right language to make 
the machines easy to program and as 
swift as possible. 

People invent new languages to 
make the job easier, looking at the 
problem strictly from a software as- 
pect. Instead, they should take a sys- 
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- tems approach and think about the 


whole system—hardware and soft- 
ware—and produce a machine that 
gives the optimal solution to a partic- 
ular type of problem. The new gen- 
eration of computers should clear 
away the vast jungle of computer 
languages by introducing machines 
that are so tailored to one particular 
language that to use another one 
would be grossly inefficient. These 
new machines would not necessarily 
run any of the languages that are cur- 
rently available. In fact, they proba- 
bly won't. This doesn’t mean that all 
computers will look like clones of 
three or four basic types. There will 
still be a lot of latitude in what type of 
I/O devices a particular system will 
support for a particular job or indi- 
vidual. But the computers will be ef- 
ficient machines especially tailored 
to the task to be done, instead of Fords 
or Chevys passing off as Mercedes or 
BMWs. 

There are microprocessors geared 
to run a particular language, but not 
everybody is convinced that pro- 
gramming in Forth or Modula-2 is the 
way to go, and in any case the prob- 
lem should be approached from a 
system standpoint instead of just opti- 
mizing the microprocessor. 

David Nakamoto 

280 S. Euclid Ave., #315 

Pasadena, CA 91101 


Polytron Responds 

Dear DDJ, 

In the C Chest column in the May 
1987 issue, Alan Holub briefly dis- 
cussed the relative merits of Poly- 
tron’s PolyMake and Lattice’s LMK 
make utilities. He mentioned two 
problems that he was having with 
PolyMake—one relating to files exist- 
ing in different directories and the 
other relating to memory usage. 

I was unable to determine the ex- 
act nature of the directory problem 
that Mr. Holub mentioned. I can say, 
however, that we have literally thou- 
sands of users many of whom struc- 
ture their projects hierarchically and 
apparently have no problem doing 
so with PolyMake. We use the same 
strategy internally at Polytron. 

As regards Mr. Holub’s comment 
about excessive memory usage, Poly- 


Make has a feature that allows the 
user to determine how much memo- 
ry it will consume. Use of this feature 
may have solved his problem. 

Our customer support staff is very 
responsive to questions such as these 
that surface from time to time and 
would have been more than happy 
to help Mr. Holub resolve these 
“problems.” Often all it takes is a sim- 
ple phone call to resolve a perceived 
problem. When a genuine bug is dis- 
covered, we respond very quickly 
with a solution. 

Incidentally, the current version of 
PolyMake is Version 2.1, and it con- 
tains many new and unique features 
in keeping with our market leader- 
ship position. These features include 
conditional constructs in both depen- 
dencies and operations, internal 
commands, shell control, some very 
powerful new macros, initialization 
operations, and the ability to deter- 
mine time stamps of components of 
Polytron Version Control System 
(PVCS) archives and PolyLibrarian 
object module libraries. Also, Version 
2.1 is about ten times faster and uses 
about 60 percent of the data space 
compared to PolyMake versions pri- 
or to Version 2.0. 

Donald K. Kinzer 

Polytron Corp. 

1815 NW 169th Pl., Ste. 2110 

Beaverton, OR 97006 


Allen Holub replies: 

I did call Polytron a year ago when I 
was having the directory problems 
discussed, and the staff couldn't 
come up with a solution then. More- 
over, when I recently asked about 
the space-related problems, I was 
told that the new version (2.1) takes 
up even more memory than the ver- 
sion that I had. Mr. Kinzer’s letter 
mentions that Version 2.1 uses 60 per- 
cent less data space, but he doesn't 
mention that it uses considerably 
more code space. Be that as it may, 
the added features may well make 
up for the amount of memory used. 
Polytron is sending me a copy of the 
new version, and I'll discuss it in a 
future C Chest. 


DDJ 
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Users and industry press alike have 
unanimously proclaimed BRIEF as 
the best program editor available 
today. Now, the best gets better, 
with the release of BRIEF 2.0. 

Straight from the box, BRIEF offers 
an exceptional range of features. 
Many users find that BRIEF is the 
only editor they'll ever need, with 
features like real, multi-level Undo, 
flexible windowing and unlimited 
file size. But BRIEF has tremendous 
hidden power in its exclusive macro 
language. With it, you can turn BRIEF 


spe 


541 Main Street 

Suite 410D 

So. Weymouth, MA 02190 
(617) 337-6963 





into your own custom editor con- 
taining the commands and features 
you desire. It's fast and easy. 

Jerry Pournelle, columnist for BYTE 
magazine summed it all up by saying 
BRIEF is, ‘‘Recommended. If you 
need a genet purpose PC program- 
ming editor, look no further’’ His 
point of view has been affirmed by 
rave reviews in C JOURNAL, 
COMPUTER LANGUAGE, DR. 
DOBB'S JOURNAL, DATA BASED 
ADVISOR, INFOWORLD AND 
PC MAGAZINE. 
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One user stated ‘'BRIEF is one of 
the few pieces of software that I 
would dare call a masterpiece.’ 
Order BRIEF now and find out why. 
BRIEF 2.0 is just $195. If you already 
own BRIEF call for upgrade 
information. | 
TO ORDER CALL: 1-800-821-2492 
(in MA call 617-337-6963) 

As always, BRIEF comes with a 


30 day money-back satisfaction 
guarantee. 
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Requires an IBM PC or compatible with 
at least 192K RAM. 


BRIEF is a trademark of UnderWare. Inc. 
Solution Systems is a trademark of Solution Systems. 
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PROGRAMMER’S SERVICES 


OF INTEREST 





Languages 

Language Processors has released a 
line of compilers for 386 machines 
running MS-DOS, Version 3.2. The lan- 
guages currently available include 
LPI-COBOL, LPI-FORTRAN, LPI-RPG I, 
LPI-PL/I, LPI-PASCAL, and LPI-BASIC. 
Each product supports the 386 DOS- 
Extender from Phar Lap Software, 
which lets users run MS-DOS applica- 
tions while facilitating access to the 
processing power of the 32-bit 386. No- 
table benefits include surmounting 
the 640K barrier, increasing overall 
performance, and enabling access of 
up to 4 Gbytes of memory. 

Users who have developed appli- 
cations using previous releases of LPI 
compilers will be able to transport 
those programs to 80386 machines 
running MS-DOS by recompiling 
them with the 386 version. Each com- 
piler is priced at $695. Reader Service 
No. 16. 

Language Processors Inc. 
400-1 Totten Pond Rd. 
Waltham, MA 02154 
(617) 890-1155 


JForth from Delta Research is based 
on the Forth-83 Standard and runs on 
the Commodore Amiga. Of particular 
interest is that high-level programs 
compile directly into machine code 
as opposed to interpreting tokens at 
run time. To cut development time, 
the compiler environment is interac- 
tive and allows incremental compil- 
ing. Utilities include a 68000 assem- 
bler and disassembler, search and 
sort routines, local variables, and 
floating point. 


Amiga structures and constants are 
predefined in .j files, which corre- 
spond to the .h files used in C. Amiga 
library routines are called by name, 
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and an object-oriented development 
environment is provided. Example 
programs demonstrate graphics, 
HAM mode, speech synthesis, and 
pull-down menus. Source code is fur- 
nished. JForth sells for $99.95. Reader 
Service No. 17. 

Delta Research 

201 D Street, Ste. 15 

San Rafael, CA 94901 

(415) 485-6867 


Microware Systems Corp. is now 
shipping its OS-9/68020 C compiler for 
the 32-bit Motorola 68020 micropro- 
cessor. Based on the Kernighan & Rit- 
chie standard, the compiler includes 
extensions for the OS-9 operating sys- 
tem (for compact disc-interactive new 
media technology). All compiler/as- 
sembler/linker options are controlled 
by an “intelligent executive” that gov- 
erns compiler options and module- 
calling sequences. 

Extensions to the OS-9 operating 
system environment include library 
functions for memory management 
and systems events as well as several 
library functions that provide com- 
patibility with the proposed ANSI 
standard. The compiler uses the 
MC68881 math coprocessor for high- 
speed execution of complex math 
functions and can generate in-line 
floating-point instructions, link to 
MC68881 math libraries, or trap to a 
shared systemwide MC68881 math 
package. It can also take advantage of 
the MC68020’s 32-bit arithmetic in- 
structions and special addressing 
modes. The OS-9/68020 C compiler 
includes both MC68000 and MC68020 
code generation packages and sells 
for $750. Reader Service No. 18. 
Microware Systems Corp. 

1900 N.W. 114th St. 
Des Moines, IA 50322 
(515) 224-1929 


Oxxi’s Benchmark Modula-2 for the 
Amiga implements the entire Modula- 
2 language as defined by Niklaus 
Wirth. Execution speed is enhanced 
because the compiler resides in memo- 
ry. The compiler is activated directly 
from the editor by a hot key, so the 
time it would normally take to load an 
overlay from disk is eliminated. The 
editor contains more than 125 com- 
mands for dealing with multiple files, 


windows, and buffers. Demo pro- 
grams include a freehand paint pro- 
gram, a desktop calculator, and a di- 
rectory maintenance program. 
Programs written in Benchmark Mo- 
dula-2 can be distributed without fur- 
ther licensing requirements from 
Oxxi. 

Available add-on products include 
a C Language Standard Library, 
which allows programs written in C 
to be moved easily into the Modula-2 
programming environment; Simpli- 
fied Amiga Libraries, which includes 
functions for screen, window, sound, 
and device handling; Interchange 
File Format (IFF) Libraries; and 
Graphic Image Resource Manage- 
ment, consisting of both IFF libraries 
and the full documentation of the IFF 
format. The compiler sells for $199; 
the add-on products are available for 
$99 each. Reader Service No. 19. 
Oxxi Inc. 
1835-A Dawns Way 
Fullerton, CA 92631 
(714) 999-6710 


Tools 

Jasik Designs is now shipping Mac- 
Nosy, Version 2, and The Debugger for 
the Mac II. For those of you not famil- 
iar with the product, MacNosy is a 
global, interactive decompiler that 
lets you recover the source code of 
any Macintosh application. Standard 
MacNosy features include on-line ac- 
cess to the Macintosh system struc- 
tures and/or current values and to 
Macintosh trap names (system calls) 
and their parameter lists and allow 
disassembly of all 680x0 instructions 
(including the 69991 FPU and 68851 
MMU). 

Added features of this Mac II edition 
include new system structures to han- 
dle additions to ROM, including Color 
QuickDraw;; the ability to disassemble 
the Mac II ROM; the identification of 
more than 600 internal procedures in 
ROM; and an increase in maximum 
text file size from 32K to 64K. 

The Debugger monitors the execu- 
tion of programs, allowing them to be 
arbitrarily stopped to trace execution. 
At this point you can view variables 
and structures as well as memory lo- 
cations. The Mac II version includes 
the ability to run in single- or multi- 
screen mode and the addition of a dis- 
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PRESENTING THE DIFFERENCE BETWEEN 
FAST COMPILING AND FAST PROGRAMMING, 


For compiling speed, 
you can’t do better than 
Let’s C. But to really 
speed up programming 
you can't do without the 
powerful source level 
debugger, csd. 

If you want the 
power, portability and flex- 
ibility of C, start with the 
complete compiler, Let’s C. 
For utilities, editor, compil- 
ing speed and fast, dense 
code, Let’s C has it all. 


But to get your pro- pie 


grams up and running you 
need more. Because even the fastest compiler 
can't outrun bugs. You need the revolutionary C 
Source Debugger, csd. 


CUT DEVELOPMENT TIME IN HALF 
WITH csd 





csd lets you bypass the time consuming frus- 
trations of debugging—like long dumps and clunky 
assembler. With csd, you actually debug in C. You learn 
faster because you watch your program run in C. You 
finish faster because csd combines the speed of a compiler 
with the interactive advantages of an interpreter. The end 
result? Development time is sliced in half. 






LET'S C AND csd FEATURES 


e For the IBM-PC and Compatibles 
e Not copy protected 


Sieve Benchmark 
(Compile time in seconds) 


Let's C: 2.8 (On 512K 6Mhz IBM-AT) 
Turbo C: 3.89 (As advertised) 


csd: 


e 

e Debug in C source code, not 
assembler 

e Monitor variables while 
tracing program 

e Does not change program speed 
or size 

e Provides separate source, eval- 
uation, program and history 


Let's C: 









e Fast compact code plus register 
variables 

e Full Kernighan & Ritchie C and 
extensions 

e Full UNIX compatibility and 
complete libraries 

e Many powerful utilities including 
make, assembler, archiver, cc one- 
step compiling, egrep, pr, tail, we 

e MicroEMACS full screen editor 
with source included 

e Supported by dozens of third 
party libraries 







windows 

e On-line help screens 

e Can interactively evaiuate any 
C expression 

e Can execute any C function in 
your program 

e Trace back function 

e Ability to set trace points 

e Not copy protected 











¢ 
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LIMITED TIME 
OFFER 


FREE csd 
WITH LET’S C! 





MARK WILLIAMS LET'S C AND esd. 





cept 


REVIEWERS ARE 
RAVING ABOUT 
LET’S C AND csd. 


“Let's C is an inex- 
pensive, high-quality 
programming package... 
with all the tools you will 
need to create applications.” 
—William G. Wong, BYTE, 
August 1986. 


“The performance and 
documentation of the $75 
Let's C compiler rival those 

ae ms of Ccompilers for the PC 
~ currently being sold for 
$500... highly recommended...” 
—Marty Franz, PC TECH JOURNAL, August 1986. 


“esd is close to the ideal debugging environ- 
ment...a definite aid to learning C and an 
indispensable tool for program development.”’ 
-William G. Wong, BYTE, August 1986. 


“This is a powerful and sophisticated debugger built on a 
well-designed, ‘serious’ compiler.” 
—Jonathon Sachs, Micro/Systems Journal, April, 1986 


START TO FINISH, THERE’S NO 
BETTER ENVIRONMENT. 


Get started with the right C compiler and you'll have 
everything you need for development-—including source 
level debugging. On top of it all, Let’s C and csd are today’s 
best values in professional C programming tools. And 
most reliable: Mark Williams C compilers have been sold 
with DEC, Intel and Wang computers since 1981. 


60 DAY MONEY BACK GUARANTEE 


Mark Williams gives you a full 60 days to find out just 
how good Let’s C and csd really are—or your money back. 

So if you want more than a fast compiler—if you want 
your programs up and running fast, ask for Let’s C and 
csd. You'll find them at your software dealer’s, in the soft- 
ware department of your favorite bookstore, through the 
Express Program at over 5500 Radio Shacks or you can 


order now by calling 1_800-MWC-1700* 


“In Ilinois call, 1-312-472-6659. DDJ 1087 


es 


Source Debugger 


Mark 
Williams 
Company 
1430 West Wrightwood, Chicago, Illinois 60614 
© 1987 Mark Williams Company 


Let's C is a registered trademark of the Mark Williams Company. 
is a trademark of Bell Labs. 


ONLY $75 EACH. 
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(continued from page 146) 


play of floating-point registers. 

The Mac II (universal) version of 
MacNosy and The Debugger are sold 
only in combination for $350. Ver- 
sions for the Mac Plus and the Mac SE 
sell for $170. Reader Service No. 20. 
Jasik Designs 
343 Trenton Way 
Menlo Park, CA 94024 
(415) 322-1386 


Solution Systems has introduced 
BRIEF 2.0, the latest version of its gen- 
eral-purpose programming editor 
for the PC. One especially nifty fea- 
ture is an improved “undo” com- 
mand, which allows programmers to 
reverse the effect of their last 300 
commands. The update includes 
new documentation with tutorials 
on basic editing, regular expressions, 
and the internal macro language—a 
language that allows users to custom- 
ize their editing environment to meet 
individual needs. 

BRIEF 2.0 adds device drivers that 
support the Enhanced Graphics 
Adapter, the Hercules Graphics Plus 
Card, and the Wyse 700 display. It is 
now compatible with displays that 
have up to 127 lines by 255 charac- 
ters. BRIEF 2.0 sells for $195; the up- 
grade cost for registered users is $60. 
Reader Service No. 21. 

Solution Systems 
335 Washington St. 
Norwell, MA 02061 
(617) 659-1571 


MicroSolutions Computer Prod- 
ucts has just released Version 2 of Uni- 
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form-PC, a utility that permits the use 
of more than 110 non-IBM PC disk for- 
mats on a standard PC/XT and more 
than 160 formats on an AT. Users of 
IBM PCs and compatibles can directly 
read, write, and initialize disks from 
most popular CP/M and MS-DOS com- 
puters. CP/M disks can be used just as 
though they were PC-DOS disks. New 
features include support for Apple 
CP/M, NorthStar CP/M hard-sector 
formats when used in conjunction 
with the new MatchPoint-PC, and MS- 
DOS formats from computers that do 
not use the IBM standard. Support is 
also provided for 48 TPI, 96 TPI, 8- 
inch, and 3.5-inch disk drives. Uni- 
form-PC, Version 2, sells for $69.95. 
Reader Service No. 22. 
MicroSolutions Computer Products 
132 West Lincoln Highway 

DeKalb, IL 60115 

(815) 756-3411 


Solutions International has just re- 
leased SuperGlue, a graphics utility 
for the Macintosh that can be installed 
as a desk accessory and allows for font 
substitutions and text extraction from 
captured images. Images can be re- 
duced or enlarged before they are 
printed to disk, and graphics can be 
automatically saved to a scrapbook 
file. The product has three parts: Su- 
perImage Saver, a printer driver that 
prints text and graphics to disk as im- 
ages; SuperViewer, a utility that al- 
lows users to open those images and 
print or copy them for use in other 
applications; and SuperViewerDA, a 
desk accessory version of Super- 


Viewer. SuperGlue sells for $89.95. 
Reader Service No. 23. 

Solutions International 

29 Main St. 

P.O. Box 989 

Montpelier, VT 05602 

(802) 229-9146 


Hardware 

ROMulator from Grammar Engine 
is, as its name implies, a ROM emula- 
tor. This hardware/software combi- 
nation includes an in-circuit emula- 
tion module with associated cables 
and adapters along with the requisite 
host software. It can emulate stand- 
ard (JEDEC) 24- and 28-pin ROMs, 
PROMs, and EPROMs; 8-, 16-, and 32- 
bit-word ROM modes; and supports 
daisy-chained modules of up to 8 
ROMs. ROMulator software allows 
ROM software in Intel hex or Motor- 
ola S record format to be downloaded 
from any host via an RS-232 interface. 
When loaded, the software is then 
immediately available for access by 
the target system. Prices for the 
ROMulator (Model $256) start at $400. 
Reader Service No. 24. 

Grammar Engine, Inc. 

1021 Tipton Ct. 

Westerville, OH 43081 

(614) 882-6366 


Applied Physics’ BusMate PC/XT 
and BusMate AT cards offer hard- 
ware hackers or technicians effec- 
tive tools for performing diagnosis on 
the PC bus system. Each card has a 
labeled gold pin for each signal line 
present on the bus and connections 
can be made to oscilloscopes, logic 
analyzers, or other test equipment 
that use standard test probes or mi- 
croclips. Four light-emitting diodes 
monitor the system’s power supply 
voltages. Each card also features a 
bus reset button that lets users reboot 
the system without powering down 
the machine. BusMate PC/XT sells for 
$79, and BusMate AT sells for $89. 
Reader Service No. 25. 

Applied Physics Inc. 

P.O. Box 2368 

West Lafayette, IN 47906 

(317) 497-1718 


DDJ 
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MAKE NO MISTAKE... 


‘I made the mistake recently of using another mail order 
house and got bad service and old versions. Never Again.” 


We’re Programmer’s Connection, your 
best one-stop source for quality pro- 
grammer’s development tools for IBM 
personal computers and compatibles. 
Here are some important facts you 
should know about us and other dealers 
in our industry. 


FREE Shipping. Shipping to U.S. cus- 
tomers is FREE via UPS Ground. If you 
want your order shipped via an express 
service, we'll only charge you the shipping 
carrier’s standard rate with no special 
fees. Some dealers charge extra for ship- 
ping and then add rush charges for 
shipping via express services. Others may 
advertise “free” shipping but make up for 
it by charging extra handling fees. 


Credit Cards. We'll charge your credit 
card only when we actually ship your order. 
Some dealers would charge your credit 
card at the time you place your order. 
This could leave you waiting for your ship- 
ment for weeks or months while they use 
your money interest-free. 


Discounts. We discount all software prod- 
ucts—even special order items. Every 
product in our advertised price list is 
shown with its list price and discounted 
price. We want you to know exactly how 
much you'll save on every product. We 
don't try to fool you by discounting some 
products and charging full retail for 
others. 


FREE Buyer’s Guide. Our new, 84-page 
Comprehensive Buyer’s Guide & Catalog 
is the most extensive in the industry. It 
helps you find the best tools for the 
job by providing complete, functional 
descriptions for all of the software prod- 
ucts in our regular product line. 


oo MAKE THE CONNECTION 


William S. Gaut 
Research Alternatives 


Consistent Prices. We extend the same 
current prices to every customer regard- 
less of where they see our ad. Some dealers 
vary prices in different ads and then ask 
you to mention which one you saw. This 
technique allows them to charge you the 
highest prices possible. 


No Hidden Charges. The discount prices 
you see on the next two pages are all you 
pay. We don’t charge extra for UPS Ground 
shipping, credit cards, COD orders, pur- 
chase orders, sales tax (except Ohio) or 
special handling (except for non-Canadian 
international orders). 


Guarantees. We offer FREE 30-day no- 
risk return guarantees and 30-day evalua- 
tion periods on most of our products. 
Some dealers have no return options while 
others often charge restocking fees of 15% 
or more. 


Quality Products. Our product line con- 
sists of hundreds of high quality software 
development tools specifically for IBM 
Personal Computers and compatibles. 
While some dealers try to carry every 
software product ever written, we carry 
only those that meet our very high stan- 
dards for quality and value. 


Latest Versions. The products we carry 
are the latest versions and come with 
the same manufacturer's technical support 
as if buying direct. While some dealers 
may participate in the software gray mar- 
ket, we’re authorized to sell every product 
we Carry. 


Large Inventory. We have one of the 
largest inventories of programmer’s 
development products in the industry. 
Most orders are shipped within 24 hours. 
And if we don't have a product in stock, 
we'll get it for you fast. 
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Meticulous Packaging. We'll give your 
shipment the extra protection needed to 
reach you in the best possible condition. 
First we'll protect your products from 
moisture by wrapping them in plastic. 
Then we'll insulate your box with high 
quality bubble-wrapping instead of the 
messy styrofoam chips that many other 
dealers use. Finally, we'll double-tape 
your box for extra strength. 


Independence. Since we’re not directly 
affiliated with any software publisher or 
developer, we can give you sound, unbiased 
advice. Unlike some dealers who have a 
special interest in promoting only certain 
products, we'll give you an objective look 
at the products we carry. 


Noncommissioned Staff. Our courteous 
sales staff is always ready to help you. 
And if you aren't sure about your needs, 
our knowledgeable technical staff can give 
you sound, objective advice. Because they 
are noncommissioned, you won't be pres- 
sured into making a purchase. 


As you can see, we’re different from the 
other dealers in our industry. Our cus- 
tomers keep coming back because we 
consistently provide the highest quality 
service and the lowest prices. So call 
us today and experience these differ- 
ences for yourself. 


Turn the page for our product list and 
ordering information. 
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borland products 


EUREKA Equation Solver 
Reflex: The Analyst 
Sidekick 
Superkey 


oS 0, 0 Te 06 0 8 Ee Cpe ete © ble 
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List Ours 
495 399 
395 309 
600 469 
685 569 
CALL CALL 
495 CALL 
1190 CALL 
250 149 
CALL CALL 
439 379 
179 ~=155 
300 265 
495 429 
195 125 
1095 979 
295 229 
50 44 
650 569 
50 «44 
295 229 
295 229 
95 77 
CALL CALL 
50 45 
495 395 
220 175 
100 64 
100 64 
100 84 
50 45 
50 3045 
50 3 45 
595 519 
95 84 
495 435 
495 435 
995 869 
2950 2589 
95 84 
795 735 
50 47 
50 47 
95 84 
1250 1059 
395 349 
595 424 
195 139 
295 199 
85 58 
595 424 
450 329 
275 189 
95 69 
895 649 
495 389 
100 89 
149 125 
395 329 
CALL CALL 
70 59 
150 93 
89 ~=—s«79 
99 84 
80 64 
180 149 
139 119 
99 ~—s 85 
69 55 
99 63 
89 79 
130 109 
69 59 
125 99 
125 9 
69 ~=55 
200 99 
100 79 
100 73 
50s 4 
100 64 
175 135 
129 99 
50 345 
100 65 
125 95 
100 79 
175 135 
50 3s 45 
100 79 
129 99 
100 79 
275 199 
167 105 
195 128 
85 57 
100 64 


Furbo Basic Compiler: 5 oi 08 ce ives 


Turbo Basic Database Toolbox............. New 
Turbo Basic Editor Toolbox ............... New 
Turbo Basic Telecom Toolbox.............. New 


Turbo C Compiler (Ca// for support products)....... 
Turbo Lightning and Word Wizard .............. 

TUONO LIGUNNOND oct 8 te ss Sain ve tae ta 

Turbo Lightning Word Wizard................ 
Taree Pesbee ONE TINO So oo oe LAE. 

eM SEIN so ag bw 0 os wt oh ee oe es we 

SEO PC FOIE ia din Bel kr osc wee wes 
Turbo Pascal Database Toolbox ................ 
Turbo Pascal Editor Toolbox................... 
Turbo Pascal Gameworks Toolbox .............. 
Turbo Pascal Graphix Toolbox ................. 
Turbo Pascal Jumbo Pack .................-.. 
Turbo Pascal Numerical Methods Toolbox ........ 
TOTUO PUGS COMMING 6.5.0. eres eae dase 
TIE MII RIN oso. giao che re FO msinenwret 


c compilers 


C86PLUS by Computer Innovations.............. 
DeSmet C w/Debugger & large case ............ 
DeSmet C w/Debugger only ..............+.5+- 
Eco-C Complete System by Ecosoft.............- 
Lattice C Compiler vers. 3.2 from Lattice 
Mark Williams Let's C w/csd...............--- 
Microsoft C Compiler w/CedeView ... .Wew version 
Microsoft QuickC Compiler ............... New 
Optimum-C by Datalight .............. 26. e eee 
Turbo C Compiler by Borland .............0005: 
Uniware 68000/10/20 Cross Compiler by SDS .... 


c interpreters 


C-terp by Gimpel, Specify compiler .... New Version 
C Trainer with Book by Catalytix.........0.0000: 
Instant C by Rational Systems........ New Version 
Introducing C by Computer Innovations ........... 
Rear be Age. Gt ROG: . oo 5 5 ian es 6 ea nae 
Run/C Professional by Age of Reason ..........- 
c utilities 
Blackstar C Library by Sterling Castle........ New 
C++ by Guidelines w/version 1.1 kernel .......... 
c-tree & r-tree Combo by FairCom .............. 
c-tree /SAM File Manager ...........+-0+45: 
r-tree Report Generator ..... 6.0 c cee eens 
Csharp Realtime Toolkit by Systems Guild... . . New 
Curses Window Dev Pkg dy Aspen Scientific .. New 
dBx dBASE to C Translator by Desktop Al ......... 
WH SOmCe CHD i, ons SoigavV Tes Sines New 
Flash-up Windows by Software Bottling .......... 
GraphiC Color version by Sci Endeavors........... 
GRAFLIB by Satrasole . oii. nck es edt cen ee 
HALO Graphics by Media Cybernetics ............ 
HALO Development Pkg for Microsoft............ 
The HAMMER by OES Systems .............+-. 
PANEL Forms Management by Roundhill.......... 


PANEL/TC for Turbo C by Roundhill......... New 
PANEL Plus by Roundhill .............00.2 000 
PC Lint by Gimpel Software .........000eeeeeee 
PHAGE fram: Uni I0SS 2.00 os cs cd cen eel New 
PLOTHE Op SUNOSOR © is oo oe cs ck ese Bes 


RTC PLUS Fortran to C by Cobalt Blue ........... 
Scientific Subroutine Library by Peerless ......... 
TE Text Editor source hy Sub Systems ....... New 
Vitamin C by Creative Programming .........+++- 

VC Screen Forms Designer. ...........00000. 
Zview by Data Mgmt Consultants ............+++ 


cobol language 


UCU LAOE- DY FINNS 8 Sing swe nc oe Caos ne oes 
FPLIB for Realia COBOL by BC Associates......... 
Micro Focus COBOL See Micro Focus Section 
Microsoft COBOL See Microsoft Section 


a a oo] ae a et ee New 
Realia COBOL with RealMENU ...... New Version 
Reals: GOBOU os cat ote occas New Version 

I Sc cc Skee e as ce pea Se ee ew aeeds 


RM/COBOL dy Ayan-McFarland ..............+- 
RM/COBOL 85 by Ryan-McFarland ............. 


RM/NET+5 by Ayan-McFarland ............ New 
ens ETON ovcsiec ck bw dow ve ode tales cee New 
SCREENIO by NorcOM «.. 55 ec oec tweed 


screenplay for COBOL by Flexus ..........0.006: 


css products 


Combo Package by Custom Software Systems ...... 
PC/SPELL Spelling Checker...............+.. 
PC/TOOLS UMIX-like Utilities... 6.66... ee eee 
POUT PEON ce « 8 ke ene es eee 


debuggers & profilers 


386 DEBUG Cross Debugger by Pharlap .........- 
Advanced Trace-86 by Morgan Computing ........ 
Codesmith-86 by Visua/Age.............-++--- 
DSD87 by Soft Advances ............-0200000- 
TUS BY AUD, Ss. as ino Hone Nia ese 
Periscope | with Board by Periscope ...........-. 
Periscope Il with NM/ Breakout Switch ........... 
Periscope II-X Software only ............000005 
Periscope Ill 8 MHz version ..................-. 
Periscope Ill 10 MHz version ...............-.. 
The PROFILER with Source Code hy DWB......... 
TURBOsmith Source debugger for Turbo Pascal..... 
The WATCHER Profiler by Stony Brook........... 


disk utilities 
Back-It by Gazelle Systems ...........0000005- 
Disk Optimizer by Softlogic Systems ............. 


Disk Technician by Prime Solutions ......... New 
FASTBACK by 5th Generation Systems ........... 
Veache dy Golden Bow Systems ............ New 
Vopt by Golden Bow Systems .............. New 
Vfeature by Golden Bow Systems ........... New 


Vfeature Deluxe by Golden Bow Systems 
XenoCopy-PC by XenoSoft 
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dos utilities 


Advanced Norton Utilities....................- 150 
Command Plus by FSP Software ..............-- 80 
FANSI-CONSOLE dy Hersey Micro .............. 75 
Mace Utilities Pau/ Mace Software.......... New 99 
MicroHelp Utility by MicroHelp.............+565 59 
Norton Commander by Peter Norton ............. 75 
Norton Utilities by Peter Norton ..........-.44-: 100 
OPAL Shell Language by Software Factory ........ 99 
Q-DOS Il by Gazelle Systems ......... 060 eee es 70 
Taskview by Sunny Hill Software .............+.- 80 
essential products 
Seay CMMOUIY hos Ki 50s Ghevle Sale Se meine gs @ 2a 185 
Essential Comm Library with Debugger ........... 250 
Essential Comm Library Software Only ......... 185 
Breakout Debugger Only Any /anguage......... 125 
Copel Gree 5a chile ug ae see ls 250 
forth language 
CFORTH Wative Code Compiler by LMI ........... 300 
FORTH/83 Metacompiler Specify Target ......... 750 
PC/FORTH dy Laboratory Microsystems .........- 150 
PC/FORTH+ by Laboratory Microsystems ......... 250 
Programmer's Package #1 by/M/ .......... New 250 
Programmer's Package #2 by /M/ .......... New 350 
Programmer's Package #3 by /M/ .......... New 500 
UR/FORTH Also Available for OS/2 by LMI ....... 350 
es eee eee ee 500 


fortran language 
50 MORE: FORTRAN by Peerless Scientific ....... 125 


ACS Time Series by Alpha Computer Service ...... 495 
AUTOMATED PROGRAMMER by KGK AutomatedNew 250 
Essential Graphics by Fssential Software ......... 250 
For-Winds by Alpha Computer Service ........... 90 
Forlib-Plus by Alpha Computer Service ..........- 70 
FORFLIG by SOtrmesOlt ©... 5 oi cece cecvees 125 
FORTRAN Addendum by /mpulse Engr ........-.-- 95 
FORTRAN Addenda by /mpulse Engr...........-- 165 
GRAFUB by Sutrasolt oo. c0.2 2 ie coke oe cee wes 175 
HALO Graphics by Media Cybernetics ............ 300 
1/0 PRO w/No Limit Library by MEF ............ 250 
Microcompatibles Combo Package.............- 240 

cS eee eer res oe ree ee ee 135 

Pibele 623 toh eased cere hs 135 
Microsoft FORTRAN w/CodeView ..........+.-. 450 
No Limit Library by MEF Environmental........... 129 
Numerical Analyst by MAGUS.............-+55- 295 
PANEL by Roundhill Computer Systems ........... 295 
PLOVHP by Sutraseft 55 6s ois 6 oA odes 175 
RM/FORTRAN by Ryan-McFarland.... New Version 595 
RTC PLUS Fortran to C by Cobalt Blue ........... 450 
Scientific Subroutine Lib by Peerless ............ 175 
Statistician by Alpha Computer Service .........-. 295 
STATLIB.GL: by Peerless ........... New Version 295 
STATLIB.TSF: by Peerless .......... New Version 295 
Strings & Things by A/pha Computer Service ....... 70 


greenleaf products 


Greenleaf C Sampler for Turbo C & QuickC .... New 95 
Greenleaf Comm Library 


Greenleaf Data Windows Library ............... 225 
et nd ee ge mre OMS ars 395 
Greenleaf Functions.................00ee eee 185 
help utilities 
HELP Genital by MIOS «05 ic snore ston de nates 125 
On-line Help from Opt-Tech ..........-0 eevee 149 
SoftScreen/HELP dy Dialectic Systems .........- 195 
lattice products 
Lattice C Compiler ver 3.2 from Lattice........... 500 
with Library Source Code ............000005- 900 
C Cross Reference Generator.................- 50 
WD SOUCe GONE ses oS 5 3 8.55.4 cin a siws 55 36 04,4 200 
C-Food Smorgasbord Function Library.........-.- 150 
With Somes COME 2 cise va inks Sa eS 300 
C-Sprite Source Level Debugger ..........-.++-- 175 
Carses Screen Manager so... 0s isa s oceaiep eee 125 
WHE BORON DONE oo Ss aie Be vn oh hes ne 250 
GBC Specify GBC Wt or BOTH .. 5 sce cves Cie 250 
GN SOMNTE CONE. 8nd bc Sek x aloe ae cigs Ca 500 
We eb os 5 See on bee ee eae Maer eae 750 
Sn DOOD EOE 5 Fassia s Khe ead eway ts es 1500 
EIR MARES FIN es. Scns Ss 5's PR Sv ee ee 195 
RPG I Combo A/ three items below............. 1100 
RPG II Compiler Wo Aoyalties................ 750 
SEU Sowre Entity UMM «sais ce Scie sos on es 250 
EE Ee en ee 250 
Screen Design Aid Utility for APG // ............. 350 
SecretDisk File Encryption Utility ..............+. 120 
SideTalk Resident Communications .............- 120 
SSP/PC Scientific Subroutine Library ............ 350 
Text Management Utilities .................... 120 
TopView Toolbasket Function Library ............ 250 
Wi SOE CINE Sy oi oo iia 6 Hae ks KS 500 
metagraphics products 
LightWINDOW/C for Datalight C ............... 95 
PTI 85.4 gcwrte His oo ae Cea eegdite 95 
FAMINE NE CRUE ie, an oxi San toe Rees dees 275 
MetaWINDOW Wo Aoyalties.............00000- 195 
MetaWINDOW/PLUS ....................... 275 
TurboWINDOW/C for Turbo C ... 2... eee 95 
TurboWINDOW/ Pascal for Turbo Pascal ......... 95 
micro focus products 
Micro Focus Level Il COBOL w/Animator......... 495 
SE Es cb th ones seh bw de scan 349 
RpUe EP eg 2 dsb i ence ccs 195 
Micro Focus Level Ii COBOL/ET for UNIX........ CALL 
Micro Focus Personal COBOL ................. 149 
Micro Focus Professional COBOL .............. 2000 
Micro Focus VS COBOL/XENIX ............... 1495 
Micro Focus Support Products: 
COBOL/IO Ad hoc Report Writer ............. 495 


119 
189 
125 


183 


229 


395 


CALL 


125 





TIN Bog oad Felted eu Reyes tae 2 Oe we 295 
BRUPIGEVUNRUEUN Socios bo coierw acs vi views 995 
microport products 
386 Unlimited License Kit .................... 249 
AT Unlimited License Kit ..................... 249 
DOSMerge286 Aun DOS and UNIX together ....... 149 
DOSMerge386 Aun DOS and UNIX together ....... CALL 
System V/386 Combination................... 799 
386 Runtime System ...................... 199 
386 Software Development System ........... 499 
Text Preparation System ................... 199 
System V/AT Combination.................... 549 
Pee PIE UN aac uc iv ec ek wee dn 199 
AT Software Development System ............ 249 
Text Preparation System ................... 199 
microsoft products 
Microsoft BASIC Compiler for XEM/X ............ 695 
Microsoft BASIC Interpreter for XFM/X........... 350 
Microsoft C Compiler w/CodeView.... New Version 450 
Microsoft COBOL Compiler with COBOL Tools...... 700 
PCIE Po Latgiey oA ae iio or wed awe COs 995 
Microsoft FORTRAN Optimizing Compiler/CodeView 450 
Microsoft FORTRAN for XEMIX................. 695 
Microsoft Learning DOS ..................... 50 
Microsoft LISP Common LISP.................. 250 
Microsoft MACH 10 with Mouse & Windows ...... 549 
Microsoft MACH 10 Board only ................ 399 
Microsoft Macro Assembler......... New Version 150 
Microsoft Mouse for /BM PS/2 ............ ew 175 
Microsoft Mouse Bus Version.................. 175 
Microsoft Mouse Seria/ Version ................ 195 
Microsoft muMath /ncludes muSIMP............. 300 
Microsoft Pascal Compiler.................... 300 
US fate ah a he ocd on 9G A Rn eae ves 695 
Microsoft QuickBASIC .... $20 Rebate Until 10/15 99 
eS a ae a New 99 
NE a ss ides ya de ha ch rete od ee 195 
Microsoft Windows ......................0.. 99 
Microsoft Windows Development Kit ............ 500 
NN OMNG UI Sc aa se os eRe SS we eae 450 


mks products 
MKS AWK /ncludes Book Offer until 10/30 ... New 75 


MKS Toolkit with MKSV/ Editor ................ 139 
MKSVI Foitor by MKS ............6..044. New 75 
modula-2 language 
EXE2LNK MASM Interface by PM/ .............. 49 
LOGITECH Modula-2 Development System.... New 249 
Modula-2 Compiler Pack ............... New 99 
peer BSCR CE ere New 169 
LOGITECH Modula-2 ROM Pkg & X RT Debugger 299 
LOGITECH Modula-2 Window Pkg.............. 49 
Macro2 Macro preprocessor by PM/ ............. 89 
RUMEN OU TI 30 fod ct ede endear sseends 89 
ModGraph hy 7EQWA .................45. New 50 
ot ee re ee 89 
Science & Engrg Tools by Quinn-Curtis........... 75 
Universal Graphics Library by Quinn-Curtis ........ 150 
mouse products 
LOGIMOUSE BUS with PLUS Pkg by LOGITECH .... 119 
with PLUS & PC Paintbrush ...........00..4. 149 
with PLUS & CAD Software ............00005. 189 
with PLUS & CAD & Paint... ... 0.2... cccccees 219 
with First Publisher... 0.0... 00. e eee eee New CALL 
LOGIMOUSE C7 with PLUS Pkg, Specify Connector 119 
with PLUS & PC Paintbrush. ... 2.2... ..6.005- 149 
with PLUS & CAD Software... .........000000. 189 
win PLUS & CAD & Paint... 20... 60.5 cee ces 219 
a New CALL 


Microsoft Mouse See Microsoft Section 
other languages 


ACTOR by Whitewater Group .................. 495 
CCS MUMPS Single-User hy MGlobal ........... 60 
CCS MUMPS Single-User Multi-Tasking .......... 150 
CCS MUMPS Multi-User .............. 0.0000 450 
Marshal Pascal by Marshal Language Systems ..... 189 
Pascal-2 by Oregon Software ...............4.. 395 
Personal REXX by Mansfield Software ........... 125 
SNOBOL4+ by Catspaw...................... 95 
other products 
Carbon Copy dy Meridian Technology ........ New 195 
Dan Bricklin's Demo Pgm dy Software Garden ..... 75 
Dan Bricklin's Demo Tutorial ................ 50 
Fast Forward by Mark Williams ................ 70 
Instant Replay by Wostradamus ................. 150 
MicroTEX 7ypesetting from Addison-Wesley ....... 295 
Net-Tools by BC Associates ................... 149 
Norton Guides Specify Language............ New 100 
OPT-Tech Sort by Opt-Tech Data Proc ........... 149 
PC/TOOLS by Custom Software ................ 49 
Screen Machine by MicroHelp ................. 79 
SuperSort dy LifeStyle... 2.2... eee eee New 139 
phoenix products 
Pasm86 Macro Assembler version 2.0............ 195 
Pdisk Hard Disk & Backup Utility..... 06... .66.44. 145 
Pfantasy Pac Phoenix Combo .................. 995 
Pfinish Execution Profiler .... 0.0... cece 395 
Pfix86plus Symbolic Debugger ...............4.. 395 
PforCe Specify C Compiler ...............0005. 395 
PforCe++ Specify C Compiler and C++ ........... 395 
Plink86plus Overlay Linker ................245. 495 
Pmoker Make Utility. 00... 00 ccc ccc ces cccecs 125 
Pwmee Macia Text EOHOT . ow ow ik eke hee as 195 
ene EME, Sle 6 5S Pied eas on home owe stele 295 
Ptel Binary File Transfer Program ............... 195 
polytron products 
PolyBoost 7he Software Accelerator ............. 80 
NUDCIIG So rece Bed Sretasetek ax Side Dicddie-n acts with o s'0 99 
PolyDesk Ill Archivist ..................... 50 


PolyDesk Ill Cryptographer ................. 50 
Poryesk Uy Tae ik en ee ee 70 
PolyLibrarian Library Manager ................. 99 
PolyLibrarian Il Library Manager..............4 149 
PolyMake UM/X-like Make Facility............... 149 
PONS css SLR UREE LW em TFs ak ie Wio'sebeis 149 
Polytron C Beautifier ........................ 50 
PolyXREF Complete Cross Ref Utility ............ 219 
PolyXREF One /anguage only .................. 129 
PVCS Corporate Version Control System.......... 395 
RP OOS os 'a8'5 DES HOR Re ec eds beh wee 149 
program mgmt utilities 
Interactive EASYFLOW dy Haventree ............ 150 
PrintO by Software Directions.................4. 89 
Quilt Computing Combo Package ............... 250 
QMake Program Rebuild Utility. ............4. 99 
SRMS Software Revision Mgmt System ........ 185 
Source Print by A/debaran Labs ................ 97 
TLIB Version Control System by Burton ........... 100 
Tree Diagrammer by A/debaran Labs ............ 77 
raima products 
dbQUERY Single-User Query Utility.............. 195 
Single-User with Source Code ................ 495 
WOUMISIEDE Sea. Pia ra civeeied bx ob cas 495 
Multi-User with Source Code................. 990 
dbVISTA Single-User DBMS ...... 66... cece 195 
Single-User with Source Code ................ 495 
REUSE 5 oso cos Ge Sad BES 0S 5's os ce 495 
Multi-User with Source Code................. 990 
sco products 
Complete XENIX System V by SCO.............. 1295 
Development System ...................... 595 
Operating System Specify XT or AT............ 595 
Text Processing Package................... 195 
WN EEE acy 5 Pl ouiet ation els ne BE ok 595 
SCO Professional 7-2-3 Workalike for XENIX....... 795 
Soll REMMAOMEL «50555 Ceeewinwede dey ecemaes 595 
XENIX System V 386 fy SCO.............. New CALL 
softcraft products 
Btrieve /SAM Mor with No Royalties ............. 245 
A i 245 
Report Option for Xtrieve ...............02.. 145 
Btrieve/N for Networks ......... 0.00 ccc eee eee 595 
ROWE TI b ch th eS G Ow wcale ie Be aie dels 595 
Report Option/N for Xtrieve/N............... 345 
text editors 
Brief & dBrief Combo from Solution Systems ...... 275 
corinne OT hee, OF eee ere ae 195 
dBrief Customizes Brief for dBASE Ill. .......... 95 
Oe: By Dawid LIVSHIR 5 S55 vie os on ow tee oe New 75 
Epsilon Emacs-like editor by Lugaru.............. 195 
KEDIT dy Mansfield Software ...............4.. 125 
Micro/SPF by Phaser Systems................. 175 
PONE MUNIN NOUS ails ok betaine ars 450 
PC/VI by Custom Software Systems ............. 149 
SPF/PC by Command Technology Corp........... CALL 
Vedit Plus by CompuView ................0.00. 185 
turbo pascal utilities 
ALICE /nterpreter by Software Channels .......... 95 
DOS/BIOS & Mouse Tools by Quinn-Curtis........ 75 
Flash-up Windows by Software Bottling .......... 90 
MACH 2 for Turbo Pascal hy Micro Help .......... 69 
MetraByte D/A Tools by Quinn-Curtis............ 100 
Science & Engrg Tools by Quinn-Curtis........... 75 
Screen Sculptor by Software Bottling ............ 125 
Speed Screen by Software Bottling.............. 35 
System Builder by Royal American .............. 150 
et eT | 100 
SNS NOON oo ay eS ae W borin snin een 130 
TDebugPLUS by TurboPower Software ........... 60 
Tmark by Tangent Systems ............0005. New 80 
Turbo EXTENDER dy TurboPower Software........ 85 
Turbo OPTIMIZER by TurboPower .............. 75 
WI OMNES COE. i a ina Peed oo de pee 125 
Turbo Professional by Sunny Hill ............... 70 
TurboHALO from IMSI .. 0... ccc eee ee 129 
TurboPower Utilities by TurboPower............. 95 
TurboRef by Gracon Services ...........00 0000s 50 
TURBOsmith Source Debugger by Visual Age ...... 69 
Universal Graphics Library by Quinn-Curtis ........ 150 
wendin products 
Operating System Toolbox .................... 99 
PCNX Operating system ......... 0. ccc cece eee 99 
PCVMS Similar to VAX/VMS ... 0... ce cee 99 
Wendin-DOS Multitasking DOS................. 99 
Wendin-DOS Application Developer's Kit .... . New 99 
XTC Text Editor w/Pascal source ............... 99 
xenix/ unix products 
Btrieve /SAM File Mor by SoftCraft.............. 595 
C-terp by Gimpel, Specify compiler .............. 498 
c-tree /SAM Mor by FairCom ..............005. 395 
dBx with Library Source by Desktop Al............ 550 
Desqview from Quarterdeck ............... New 100 
DIRECTORY SHELL dy American Mgmt Systems New 349 
DOSIX Console Version by Data Basics ........... 399 
DOSIX User Version by Data Basics ............. 199 


Micro Focus Products See Micro Focus Section 
Microport Products See Microport Section 
Microsoft Products See Microsoft Section 


PANEL Plus by Roundhill Computer Systems ....... 795 
REAL-TOOLS Binary Version by PCT ............. 149 
Library Source Version .........0 0c cece cece 399 
Complete Source Version ................05. 999 
RM/COBOL by Ayan-McFarland ................ 1250 
RM/FORTRAN by Ayan-McFarland.............. 750 


SCO Products See SCO Section 


CALL 
CALL 


Call or write for our FREE Comprehensive Buyers Guide 


Terms subject to change. 


©Copyright 1987 Programmer's Connection Incorporated. 
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LOWEST PRICES 
Due to printing lead times, some of our current 


prices may differ from those shown here. Call for 
latest pricing. 


FREE SHIPPING 
Orders within the USA (including Alaska & Hawaii) 
are shipped FREE via UPS. Express shipping is 
available at the shipping carrier's standard rate 
with no rush fees or handling charges. To avoid 
delays when ordering by mail, please call first to 
determine the exact cost of express shipping. 


CREDIT CARDS 
VISA and MasterCard are accepted at no extra 


cost. Your card is charged when your order is 
shipped. Mail orders please include credit card 
expiration date and authorized signature. 


CODs AND POs 
CODs and Purchase Orders are accepted at no 
extra cost. No personal checks are accepted on 
COD orders. POs with net 30-day terms (with initial 
minimum order of $100) are available to qualified 
US accounts only. 


SALES TAX 
Orders outside of Ohio are not charged state sales 
tax. Ohio customers please add 6% Ohio tax or 
provide proof of tax-exemption. 


INTERNATIONAL ORDERS 

Shipping charges for International and Canadian 
orders are based on the shipping carrier's standard 
rate. Since rates vary between carriers, please call 
or write for the exact cost. International orders 
(except Canada), please include an additional $10 
for export preparation. All payments must be made 
with US funds drawn ona US bank. Please include 
your telephone number when ordering by mail. Due 
to government regulations, we cannot ship to all 
countries. 


VOLUME ORDERS 
Volume orders may qualify for additional discounts. 
Call us for special pricing. 


SOUND ADVICE 
Our knowledgeable technical staff can answer 
technical questions, assist in comparing products 
and send you detailed product information tailored 
to your needs. 
30-DAY GUARANTEE 

Most of our products (excluding books) come with 
a 30-day documentation evaluation period or a 
30-day return guarantee. Please note that some 
manufacturers restrict us from offering guarantees 
on their products. Call for more information. 


MAIL ORDERS 


Please include your telephone number on all mail 


orders. Be sure to specify computer, operating 
system and any applicable compiler or hardware 
interface(s). Send mail orders to: 
Programmer's Connection 
Order Processing Department 
136 Sunnyside Street 
Hartville, OH 44632 


EN a ssah Air oern eee 800-336-1166 
CANADA 800-225-1166 
OHIO & ALASKA (Collect) 216-877-3781 
MG Fie wcisecde nc ncetea toe 9102406879 
EASYLINK _ 62806530 
INTERNATIONAL 216-877-3781 


CUSTOMER SERVICE ... 216-877-1110 
Hours: Weekdays 8:30 AM to 8:00 PM EST. 








oesn't your heart just go out to 
Lotus Development Corpora- 
tion? First everybody and _ his 
brother ripped off the Lotus 1-2-3 
user interface. Then somebody hit 
on the idea of compiling 1-2-3 spread- 
sheets into objects that can be ma- 
nipulated without 1-2-3, so that one 
copy of 1-2-3 may be all a company 
needs. And now the latest wrinkle 
in the spreadsheet counterpane: 
Microsoft has slipped in with a PC 
spreadsheet product that reads 
1-2-3 files and converts 1-2-3 macros. 
It reminds me of a story I wrote 
once. | 
Back when I worked for InfoWorld 
and VisiCalc and SuperCalc were in 
flower, I wrote a regular back-page 
column that posed mathematical 
puzzles in the format of mystery 
stories featuring a character named 
Usasi and often touching obliquely 
on computer industry issues. In 
1983, I wrote something like this: 


I was sitting at my favorite table 
in Mister Bob’s on Polk Street, ex- 
plaining a fine forensic point to my 
associate Casey Standard and smart- 
mouthed lawyer Bette Noire.... 
Casey asked if we had heard of a 
programming case Mr. Usasi had in 
which a PROLOG expert system had 
been ported to a machine on which 
the values true and false had the 
opposite representation from what 
the programmer expected. Every 
true became a false, every full 
became an empty. Truth values were 
reversed universally. It was a real 
mess. Mr. Usasi was called in as an 
expert on expertise to advise them. 

‘Simple,’ I said. “Just reverse the 
interpretation of the output. You 
know, there was a clever database 
program on micros back in the 70s 
that looked a lot like expert systems 
of today, but was much simpler. You 
could tell it, ‘Bartholomew’s maiden 
aunt’s Abigail,’ and ‘Bartholomew's 
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birthday isn’t February 29,’ and ask 
questions like ‘What's Bartholomew's 
favorite color?’ It used Soundex 
coding. What was it called? 

“Anyway, this all reminds me of 
that time in Guadalajara when I 
broke up a software smuggling ring 
that could have torpedoed the elec- 
tronic spreadsheet market.” 

“That doesn’t make any sense,” 
Bette objected. “You don't have to 
smuggle software; you can just—” 

‘I'd insinuated myself into the 
smuggling ring,” I went on, “a group 
of Orange County numerologists 
who had got it into their heads that 
balance sheets belonged to the 
masses and who were smuggling in 
spreadsheets to undermine the 
market leaders, which were Sorcim 
and VisiCorp back then. 

“For deep and subtle numerologi- 
cal reasons, these Orange County 
spreadsheet smugglers had to divide 
the gold dust in which they had 
been paid into equal shares, with 
each smuggler getting exactly as 
many shares as there were smug- 
glers who got shares, and with no 
undistributed shares. 

“Now I had infiltrated the band 
and had studied a little numerology 
to beat them at their own game. I 
siezed on the fact that the smug- 
glers secretly didn't want an even 
distribution of the spoils and sug- 
gested a scheme that would result 
in the same number of shares being 
distributed—which mattered to 
their numerological principles—and 
that would still allow an uneven 
distribution of shares—which ap- 


pealed to the cupidity of the more 
powerful members. 

“Give me exactly one share for 
each smuggler, I told them, count- 
ing me as one of the smugglers of 
course, and give each smuggler a 
different even number of shares, as- 
signing them anywhichway. I gave 
them solid numerological reasons 
for the plan, and they bought it. I 
also stipulated, since I had demon- 
strated my value by coming up with 
the plan, that nobody get as much 
as twice my allotment, and they 
bought that, too.” 

Casey frowned at me. “I’m afraid 
this is a little far-fetched, Mickey.” 

“Sure it was,” I explained patiently. 
“I was just playing along with them. 
I’m not into that numerological stuff. 
Anyway, after they solemnly agreed 
to the plan and swore their numero- 
logical oaths, they started divvying 
up the gold dust and discovered 
what I had pulled on them—but by 
then it was too late. Athough they 
didn’t much like it, they had the 
integrity to stand by their numero- 
logical principles.” I signaled for the 
check. 

“That’s the end?” Casey asked. 
“But what happened? What had you 
pulled on them?” 

“Do the math,” I said. “It’s all in 
the math.” 


You can surely solve Mickey's little 
puzzle, but what about the upside- 
down expert system Casey men- 
tioned? Because of its closed-world 
implementation, PROLOG does not 
treat true and false complementa- 
rily. What would happen if the base 
truth values in a PROLOG program 
were reversed? And what was the 
name of that database program? 
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Michael Swaine 
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How A 


C Programmer 
Became A Screen S 


Screens, the Visible Part 
of Your Program. 


A program is often judged by how well 
the screens are executed. However, 

the real creativity lies in what goes on 
behind the screens. 


ScreenStar is a product that allows your 
real creativity to light up the screen. It 
reduces costly screen, window, and data 
validation development time. 


You Take the Bows, We 
Write the Code. 


Our natural drawing commands allow 
you to paint any screen imaginable. 
Press one key when you are satisfied and 
ScreenStar produces concise, commented, 
ready-to-compile code. This allows 
immediate testing of the I/O screens, 
including smooth, even scrolling 
between multiple screens. 





Create or capture complex screens with 
data-entry filters built in. 


If all ScreenStar did was turn screens 
into code it would be a useful tool. Yet 
ScreenStar also permits a wide range of 
field types. Some of the choices include 
date, alphanumeric, telephone, yes/no, 
dollar, time and user-definable fields. 


Other valuable data-entry filters are 
built in, such as required field, display 
only, and many others. All screen fields 
are generated with error-checking routines. 
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ScreenStar is a trademark of Essential Software Inc. 
Dan Bricklin’s Demo Program is a trademark of Software Garden Inc. 








ScreenStar Not Only Captures 
Your Imagination, 
It Captures Screens. 
The memory-resident capture program 
converts any screen into a ScreenStar 
file in seconds, including those generated 
by programs like Dan Bricklin’s Demo 
Program. 


ScreenStar Sets the Stage 
for Windows. 


ScreenStar comes with a complete 
window generating library. You design 
the help screens and pop-up windows. 
Essential ScreenStar windowing 
functions tie them together in one 
smooth package. 


Curtain Call. 


They may not ask for your autograph, 
but they will want to know how you did 
those screens. Screenstar is more than a 
screen-painting program. It is a 
screen processor. No professional 
programming environment will 
be complete without 
this product. 


We know you will enjoy 
using ScreenStar. However, 
Should you give it less than 
rave reviews, return it 
within 30 days for a full 
refund. 





* Interactive screen painting and 
subsequent code generation. 


* Multiple screen design and scrolling. 


* TSR screen capture program, works 
with any program including Dan 
Bricklin’s Demo Program. 


* Complete window design including 
overlapping window functions. 


* Screens are compressed into data 
structures, and remain a permanent part 
of the program. No messy data files to 
look for. 


Price - $99 


_W/Source add $99 


Audition Our Product 
Today. Call: 





CUAL 


_ Essential Software 
Pee ire Oleutvos tvs! 

76 South Orange Ave., Suite 3 
South Orange, NJ 07079 

























Whatever dialect of IBM you need to speak, 
CROSSTALK® Mk. 4 makes the connection. 


Now, one program does the job that used to require several. 
CROSSTALK® Mk. 4 allows high-speed direct communications 
between PCs and minicomputers, or (with an IRMA™ board) 

between your PC and an IBM Mainframe, or (with Smart Alec™ 
between your PC and IBM System 3x’s. If you like, CROSSTALI 
can support all of these sessions (and others) simultaneously, 
and display each session in its own window. 

CROSSTALK Mk. 4 emulates all the terminals you're likely 
to find useful. That includes IBM 3101 (page and character 

modes), IBM 525x, IBM 529x, IBM 327x, as well as many 
popular async terminals like the DEC VT100 and VT220 

series. CROSSTALK Mk. 4 includes the powerful CASL™ 
programming language, which allows you to automate 
communications applications quickly and easily. 

So if you’re used to thinking of CROSSTALK just to 

use with a modem, you’re missing some important 
connections. Ask your dealer for details, or write: 


GS? Digital Communications Associates, Inc. 
1000 Holcomb Woods Parkway / Roswell, Georgia 30076 


1-800-241-6393 Cc R OSTALK’ 


COMMUNICATIONS 
VMS 


CROSSTALK and DCA are registered trademarks of Digital Communications 
Associates, Inc, IRMA, Smart Alec and CASL are trademarks of Digital Communi- 
cations Associates, Inc. IBM is a registered trademark of International Business 
Machines Corp. DEC is a registered trademark of Digital Equipment Corp. 
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